permit formats to be specified with BINASCII symbols

froydnj · Sep 30, 2010 · 931cf57 · 931cf57
1 parent bfcc5ac
commit 931cf57
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/format.lisp b/format.lisp
@@ -25,10 +25,14 @@
                                              descriptor
                                              encoder-constructor
                                              decoder-constructor)
-  (setf (gethash format *format-descriptors*) descriptor)
-  (setf (gethash format *format-state-constructors*)
-        (cons encoder-constructor decoder-constructor))
-  format)
+  (flet ((add-with-specified-format (format)
+           (setf (gethash format *format-descriptors*) descriptor)
+           (setf (gethash format *format-state-constructors*)
+                 (cons encoder-constructor decoder-constructor))))
+    (add-with-specified-format format)
+    (add-with-specified-format (intern (symbol-name format)
+                                       (find-package "BINASCII")))
+    format))
 
 (defun make-encoder (format)
   "Return an ENCODE-STATE for FORMAT.  Error if FORMAT is not a known