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
cmucl
cmucl
Commits
6ef0b882
Commit
6ef0b882
authored
Feb 22, 1990
by
ram
Browse files
/usr1/lisp/ncode/seq.lisp, 12-Jul-89 13:19:40, Edit by Chiles.
Moved APPLY-KEY and IDENTITY to list.lisp.
parent
3db84bb9
Changes
1
Hide whitespace changes
Inline
Side-by-side
code/seq.lisp
View file @
6ef0b882
...
...
@@ -56,20 +56,6 @@
;;; APPLY-KEY saves us a function call sometimes.
;;; This is not in and (eval-when (compile eval) ...
;;; because this is used in Sort.Lisp
(
defmacro
apply-key
(
key
element
)
`
(
if
,
key
(
funcall
,
key
,
element
)
,
element
))
(
defun
identity
(
thing
)
"Returns what was passed to it."
thing
)
(
defun
make-sequence-of-type
(
type
length
)
"Returns a sequence of the given TYPE and LENGTH."
(
declare
(
fixnum
length
))
...
...
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