/[cmucl]/src/code/interr.lisp
ViewVC logotype

Diff of /src/code/interr.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by wlott, Sat Mar 28 21:07:08 1992 UTC revision 1.25 by wlott, Wed Apr 15 02:24:02 1992 UTC
# Line 213  Line 213 
213           :datum object           :datum object
214           :expected-type 'symbol))           :expected-type 'symbol))
215    
216  (deferr undefined-symbol-error (symbol)  (deferr undefined-symbol-error (fdefn-or-symbol)
217    (error 'undefined-function    (error 'undefined-function
218           :function-name name           :function-name name
219           :name symbol))           :name (etypecase fdefn-or-symbol
220                     (symbol fdefn-or-symbol)
221                     (fdefn (fdefn-name fdefn-or-symbol)))))
222    
223  (deferr object-not-coercable-to-function-error (object)  (deferr object-not-coercable-to-function-error (object)
224    (error 'type-error    (error 'type-error

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

  ViewVC Help
Powered by ViewVC 1.1.5