Changeset 6680

Timestamp:

Jun 8, 2007, 3:11:17 PM (17 years ago)

Author:

Gary Byers

Message:

Stack-allocate error handler in DEFCALLBACK-BODY.

File:

• branches/ide-1.0/ccl/lib/macros.lisp (modified) (1 diff)

branches/ide-1.0/ccl/lib/macros.lisp

@@ -2474 +2474 @@
       (if error-return
         (let* ((cond (gensym))
-               (block (gensym)))
-          `(block ,block (handler-bind ((,condition-name
-                                         (lambda (,cond)
+               (block (gensym))
+               (handler (gensym)))
+          `(block ,block
+            (let* ((,handler (lambda (,cond)
                                            (,error-return-function ,cond ,stack-ptr (%inc-ptr ,stack-ptr ,error-delta))
                                            (return-from ,block
                                              nil))))
-                           ,body)))
+              (declare (dynamic-extent ,handler))
+            (handler-bind ((,condition-name ,handler))
+                           ,body))))
         body))))