Skip to content
GitLab
Projects
Groups
Snippets
/
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
60f810ac
Commit
60f810ac
authored
Feb 15, 2003
by
pfdietz
Browse files
Fixed busted FTYPE declarations and added tests for keywords as function names.
parent
75fd9968
Changes
2
Hide whitespace changes
Inline
Side-by-side
ansi-tests/flet.lsp
View file @
60f810ac
...
...
@@ -152,7 +152,7 @@
(declare (type fixnum x))
"Add one to the fixnum x."
(1+ x)))
(declare (ftype (fixnum) integer))
(declare (ftype
(function
(fixnum) integer)
%f)
)
(%f 10))
11)
...
...
@@ -390,3 +390,12 @@
(flet ((t () 'b)) (t))
b)
;;; Keywords can be function names
(deftest flet.47
(flet ((:foo () 'bar)) (:foo))
bar)
(deftest flet.48
(flet ((:foo () 'bar)) (funcall #':foo))
bar)
ansi-tests/labels.lsp
View file @
60f810ac
...
...
@@ -160,6 +160,19 @@
(declare (type fixnum x))
"Add one to the fixnum x."
(1+ x)))
(declare (ftype (fixnum) integer))
(declare (ftype
(function
(fixnum) integer)
%f)
)
(%f 10))
11)
;;; Keywords can be function names
(deftest labels.22
(labels ((:foo () 10)
(:bar () (1+ (:foo))))
(:bar))
11)
(deftest labels.23
(labels ((:foo () 10)
(:bar () (1+ (funcall #':foo))))
(funcall #':bar))
11)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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