Changeset 12551


Ignore:
Timestamp:
Aug 6, 2009, 11:28:21 PM (10 years ago)
Author:
rme
Message:

Nuke conditionalized-out defintion of #, reader macro.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-reader.lisp

    r12497 r12551  
    27372737 #'read-eval)
    27382738
    2739 ;;; This has been deprecated.  Why not nuke it ?
    2740 #-ansi-cl
    2741 (set-dispatch-macro-character
    2742  #\#
    2743  #\,
    2744  #'(lambda (stream subchar numarg)
    2745      (let* ((sharp-comma-token *reading-for-cfasl*))
    2746        (if (or *read-suppress* (not *compiling-file*) (not sharp-comma-token))
    2747          (read-eval stream subchar numarg)
    2748          (progn
    2749            (require-no-numarg subchar numarg)
    2750            (list sharp-comma-token (read stream t nil t)))))))
    2751 
    27522739;;; Read a valid, non-numeric token string from stream; *READ-SUPPRESS*
    27532740;;; is known to be false.
Note: See TracChangeset for help on using the changeset viewer.