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
cmucl
cmucl
Commits
98ba072c
Commit
98ba072c
authored
Feb 04, 1994
by
ram
Browse files
Like, more examples.
parent
b7054f95
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/examples.lisp
View file @
98ba072c
...
...
@@ -17,3 +17,29 @@
(
declare
(
fixnum
x
))
(
foo
x
)))
(
defun
f+
(
x
y
)
(
declare
(
single-float
x
y
))
(
+
x
y
))
(
defun
if-f+
(
x
y
)
(
declare
(
single-float
x
y
))
(
+
(
if
(
yow
)
(
zunk
)
x
)
y
))
(
defun
cf+
(
x
y
)
(
declare
(
single-float
x
y
))
(
cons
(
+
x
y
)
t
))
(
defun
set-flo
(
x
)
(
declare
(
single-float
x
))
(
prog
((
var
0.0
))
(
setq
var
(
gorp
))
(
setq
var
x
)
(
return
var
)))
(
defun
if-cf+
(
x
y
)
(
declare
(
single-float
x
y
))
(
cons
(
if
(
grue
)
(
+
x
y
)
(
snoc
))
t
))
(
defun
zf+
(
x
y
)
(
declare
(
single-float
x
y
))
(
zork
(
+
x
y
)))
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