/[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.46 by rtoy, Wed Nov 8 22:09:56 2006 UTC revision 1.47 by rtoy, Fri Aug 17 14:02:12 2007 UTC
# Line 37  Line 37 
37  (defmacro deferr (name args &rest body)  (defmacro deferr (name args &rest body)
38    (let* ((rest-pos (position '&rest args))    (let* ((rest-pos (position '&rest args))
39           (required (if rest-pos (subseq args 0 rest-pos) args))           (required (if rest-pos (subseq args 0 rest-pos) args))
40           (fp (gensym))           (fp (gensym "FP-"))
41           (sigcontext (gensym))           (sigcontext (gensym "SIGCONTEXT-"))
42           (sc-offsets (gensym))           (sc-offsets (gensym "SC-OFFSETS-"))
43           (temp (gensym))           (temp (gensym))
44           (fn-name (symbolicate name "-HANDLER")))           (fn-name (symbolicate name "-HANDLER")))
45      `(progn      `(progn

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

  ViewVC Help
Powered by ViewVC 1.1.5