Changeset 11839 for trunk/abcl/src/org/armedbear/lisp/scripting/lisp/config.lisp

Timestamp:

05/07/09 22:01:52 (14 years ago)

Author:

astalla

Message:

Fixed compilation with temp files with JSR-223. Refactoring of AbclScriptEngine?
(mostly elimination of dead code). Changed policy of use of #'sys::%debugger-hook-function
in an attempt to have the throwing debugger cover more cases; it still doesn't
work always.

File:

• trunk/abcl/src/org/armedbear/lisp/scripting/lisp/config.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/scripting/lisp/config.lisp

@@ -42 +42 @@
 (defparameter *compile-using-temp-files* t)
 
-(defconstant +standard-debugger-hook+ *debugger-hook*)
-
-(defun configure-abcl ()
-  (setq *debugger-hook*
-  (if *use-throwing-debugger*
-      #'sys::%debugger-hook-function
-      +standard-debugger-hook+))
+(defun configure-abcl (abcl-script-engine)
   (when *launch-swank-at-startup*
     (unless *swank-dir*
       (error "Swank directory not specified, please set *swank-dir*"))
+    (when *use-throwing-debugger*
+      (setf *debugger-hook* #'sys::%debugger-hook-function))
     (pushnew *swank-dir* asdf:*central-registry* :test #'equal)
     (asdf:oos 'asdf:load-op :swank)