[Openmcl-cvs-notifications] r12551 - /trunk/source/level-1/l1-reader.lisp

[rme at clozure.com]

Author: rme
Date: Thu Aug  6 19:28:21 2009
New Revision: 12551

Log:
Nuke conditionalized-out defintion of #, reader macro.

Modified:
    trunk/source/level-1/l1-reader.lisp

Modified: trunk/source/level-1/l1-reader.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-reader.lisp (original)
+++ trunk/source/level-1/l1-reader.lisp Thu Aug  6 19:28:21 2009
@@ -2736,19 +2736,6 @@
  #\.
  #'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-tok=
en))
-         (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.
 (defun read-symbol-token (stream)