Changeset 12972

Timestamp:

Oct 9, 2009, 1:34:04 PM (15 years ago)

Author:

gz

Message:

fix in get-dispatch-macro-character (r12854)

File:

• branches/working-0711/ccl/level-1/l1-reader.lisp (modified) (3 diffs)

branches/working-0711/ccl/level-1/l1-reader.lisp

@@ -2127 +2127 @@
   (unless (digit-char-p sub-ch 10)
     (let* ((def (cdr (nth-value 1 (%get-readtable-char disp-ch readtable)))))
-      (if (consp (cdr def))
+      (if (consp def)
         (cdr (assq sub-ch (cdr def)))
         (error "~A is not a dispatching macro character in ~s ." disp-ch readtable)))))
@@ -2150 +2150 @@
         (push (cons sub-ch fn) (cdr def))))
     t))
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -2737 +2738 @@
  #'read-eval)
 
-;;; This has been deprecated.  Why not nuke it ?
-#-ansi-cl
-(set-dispatch-macro-character
- #\#
- #\,
- #'(lambda (stream subchar numarg)
-     (let* ((sharp-comma-token *reading-for-cfasl*))
-       (if (or *read-suppress* (not *compiling-file*) (not sharp-comma-token))
-         (read-eval stream subchar numarg)
-         (progn
-           (require-no-numarg subchar numarg)
-           (list sharp-comma-token (read stream t nil t)))))))
-
 ;;; Read a valid, non-numeric token string from stream; *READ-SUPPRESS*
 ;;; is known to be false.