Changeset 12972


Ignore:
Timestamp:
Oct 9, 2009, 8:34:04 PM (10 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-reader.lisp

    r12965 r12972  
    21272127  (unless (digit-char-p sub-ch 10)
    21282128    (let* ((def (cdr (nth-value 1 (%get-readtable-char disp-ch readtable)))))
    2129       (if (consp (cdr def))
     2129      (if (consp def)
    21302130        (cdr (assq sub-ch (cdr def)))
    21312131        (error "~A is not a dispatching macro character in ~s ." disp-ch readtable)))))
     
    21502150        (push (cons sub-ch fn) (cdr def))))
    21512151    t))
     2152
    21522153
    21532154;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
    27372738 #'read-eval)
    27382739
    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 
    27522740;;; Read a valid, non-numeric token string from stream; *READ-SUPPRESS*
    27532741;;; is known to be false.
Note: See TracChangeset for help on using the changeset viewer.