Changeset 11268


Ignore:
Timestamp:
Oct 30, 2008, 6:54:29 PM (11 years ago)
Author:
gz
Message:

Propagate r11185 to trunk

File:
1 edited

Legend:

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

    r11071 r11268  
    24422442                          (if found
    24432443                            symbol
    2444                             (%err-disp $XNOESYM (%string-from-token tb) pkg)))))))))))))))
     2444                            (let* ((token (%string-from-token tb))
     2445                                   (symbol (find-symbol token pkg)))
     2446                              (with-simple-restart (continue
     2447                                                    "~:[Create and use the internal symbol ~a::~a~;Use the internal symbol ~:*~s~]"
     2448                                                    symbol (package-name pkg) token)
     2449                                (%err-disp $XNOESYM token pkg))
     2450                              (or symbol (intern token pkg)))))))))))))))))
    24452451                   
    24462452#|
Note: See TracChangeset for help on using the changeset viewer.