/[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.8 by wlott, Tue Aug 14 16:27:23 1990 UTC revision 1.9 by wlott, Tue Aug 14 16:34:25 1990 UTC
# Line 107  Line 107 
107                ,(meta-error-number name)                ,(meta-error-number name)
108                ,description                ,description
109                #'(lambda (name ,fp ,sigcontext ,sc-offsets)                #'(lambda (name ,fp ,sigcontext ,sc-offsets)
110                    (declare (ignorable name ,fp ,sigcontext ,sc-offset))                    (declare (ignorable name ,fp ,sigcontext ,sc-offsets))
111                    (macrolet ((set-value (var value)                    (macrolet ((set-value (var value)
112                                 (let ((pos (position var ',required)))                                 (let ((pos (position var ',required)))
113                                   (unless pos                                   (unless pos

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5