Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
3ce0d850
Commit
3ce0d850
authored
Jul 01, 2003
by
pfdietz
Browse files
Fixed some eval-when forms.
parent
ec263a66
Changes
4
Hide whitespace changes
Inline
Side-by-side
ansi-tests/fboundp.lsp
View file @
3ce0d850
...
...
@@ -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))))
...
...
ansi-tests/function.lsp
View file @
3ce0d850
...
...
@@ -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)))
...
...
ansi-tests/functionp.lsp
View file @
3ce0d850
...
...
@@ -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)))
...
...
ansi-tests/structures-02.lsp
View file @
3ce0d850
...
...
@@ -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)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment