Index: /branches/working-0711/ccl/level-1/l1-reader.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-reader.lisp	(revision 12971)
+++ /branches/working-0711/ccl/level-1/l1-reader.lisp	(revision 12972)
@@ -2127,5 +2127,5 @@
   (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,4 +2150,5 @@
         (push (cons sub-ch fn) (cdr def))))
     t))
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -2737,17 +2738,4 @@
  #'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.