Commit 3ce0d850 authored by pfdietz's avatar pfdietz

Fixed some eval-when forms.

parent ec263a66
......@@ -27,8 +27,8 @@
(not-mv (fboundp 'fboundp-5-fn))
nil)
(eval-when #+gcl (eval compile)
#-gcl (:load-toplevel :compile-toplevel)
(eval-when #+gcl (eval compile load)
#-gcl (:load-toplevel :compile-toplevel :execute)
(ignore-errors
(defun (setf fboundp-6-accessor) (y x) (setf (car x) y))))
......
......@@ -48,7 +48,7 @@
nil)
(eval-when #+gcl (eval compile)
#-gcl (:load-toplevel :compile-toplevel)
#-gcl (:load-toplevel :compile-toplevel :execute)
(ignore-errors
(defun (setf function-7-accessor) (y x) (setf (car x) y) y)))
......
......@@ -47,7 +47,7 @@
nil)
(eval-when #+gcl (eval compile)
#-gcl (:load-toplevel :compile-toplevel)
#-gcl (:load-toplevel :compile-toplevel :execute)
(ignore-errors
(defun (setf functionp-7-accessor) (y x) (setf (car x) y) y)))
......
......@@ -377,7 +377,7 @@
;;; evaluated in the lexical environment in which they were defined
(eval-when #+gcl (load eval)
#-gcl (:load-toplevel)
#-gcl (:load-toplevel :execute)
(let ((x nil))
(flet ((%f () x)
(%g (y) (setf x y)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment