/[cmucl]/src/compiler/macros.lisp
ViewVC logotype

Diff of /src/compiler/macros.lisp

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

revision 1.47 by toy, Thu Nov 14 16:54:37 2002 UTC revision 1.48 by toy, Tue Dec 3 16:58:55 2002 UTC
# Line 125  Line 125 
125  ;;;  ;;;
126  (defun special-form-function (&rest stuff)  (defun special-form-function (&rest stuff)
127    (declare (ignore stuff))    (declare (ignore stuff))
128    (simple-program-error "Can't funcall the SYMBOL-FUNCTION of special forms."))    (error 'simple-undefined-function
129             :format-control "Can't funcall the SYMBOL-FUNCTION of special forms."))
130    
131  ;;; CONVERT-CONDITION-INTO-COMPILER-ERROR  --  Internal  ;;; CONVERT-CONDITION-INTO-COMPILER-ERROR  --  Internal
132  ;;;  ;;;

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

  ViewVC Help
Powered by ViewVC 1.1.5