Changeset 11185


Ignore:
Timestamp:
Oct 21, 2008, 9:25:11 PM (11 years ago)
Author:
gz
Message:

Make the "no external symbol" error continuable

File:
1 edited

Legend:

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

    r11101 r11185  
    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.