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
Sébastien Villemot
antik
Commits
0a80c2e5
Commit
0a80c2e5
authored
Jan 18, 2011
by
Liam M. Healy
Browse files
Avoid infinite recursion in antik:coerce
parent
9e289bc2
Changes
1
Hide whitespace changes
Inline
Side-by-side
init/generic.lisp
View file @
0a80c2e5
;; Generic functions for generalized numbers
;; Liam Healy Tue Feb 9 1999 - 21:38
;; Time-stamp: <2011-01-
03 21:52:33
EST generic.lisp>
;; Time-stamp: <2011-01-
18 22:49:26
EST generic.lisp>
;; Copyright 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
...
...
@@ -42,7 +42,7 @@
(
if
(
eq
like
't
)
number
(
if
(
subtypep
like
'number
)
(
coerce
number
like
)
(
cl:
coerce
number
like
)
(
error
"Don't know how to coerce to ~a"
like
))))
(
:method
((
number
sequence
)
like
)
(
map
(
type-of
number
)
(
lambda
(
x
)
(
coerce
x
like
))
number
))
...
...
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