Skip to content
Snippets Groups Projects
Commit 1d1de5b1 authored by wlott's avatar wlott
Browse files

Changed %THROW definition to not use DEFUN so that the compiler doesn't get

confused.
parent 4a9970bd
No related branches found
No related tags found
No related merge requests found
......@@ -273,8 +273,13 @@
(error "Wrong argument count, wanted ~D and got ~D."
defined-args supplied-args)))
(defun %throw (tag &rest args)
(throw tag (values-list args)))
;;; Use (SETF SYMBOL-FUNCTION) insetad of DEFUN so that the compiler
;;; doesn't try to compile the hidden %THROW MV-CALL in the throw below as
;;; a local recursive call.
;;;
(setf (symbol-function '%throw)
#'(lambda (tag &rest args)
(throw tag (values-list args))))
(defun %more-arg (args index)
(nth index args))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment