[Openmcl-devel] "potential numbers" as symbol names

[bryan o'connor]

kmr's new cl-photo package loses on openmcl because it
wants to use some "potential number" symbols in the
keyword package.

? :3
 > Error in process listener(1): Reader error: Illegal symbol syntax.
 > While executing: CCL::%PARSE-TOKEN

assuming that :3 and package::3 are both valid things,
the patch below will allow them.

i'm having problem accessing the cvs server, so this
patch is diff'd against an emacs backup file.  it might
not apply cleanly.

thoughts?

     ...bryan



-------------- next part --------------
--- l1-reader.lisp.~1.15.~	2005-04-12 17:15:07.000000000 -0700
+++ l1-reader.lisp	2005-04-19 20:08:00.000000000 -0700
@@ -595,10 +595,8 @@
               (signal-reader-error stream "Illegal symbol syntax."))
             ; Something other than a buffer full of dots.  Thank god.
             (let* ((num (if (null escapes) (%token-to-number tb (%validate-radix *read-base*)))))
-              (if num
-                (if explicit-package
-                  (%err-disp $XBADSYM)          ; a "potential number" with package qualifier is bad
-                  num)
+              (if (and num (not explicit-package))
+                num
                 (if (and (zerop len) (null escapes))
                   (%err-disp $XBADSYM)
                   (progn                  ; Muck with readtable case of extended token.
-------------- next part --------------