Commit 0a80c2e5 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Avoid infinite recursion in antik:coerce

parent 9e289bc2
;; Generic functions for generalized numbers
;; Liam Healy Tue Feb 9 1999 - 21:38
;; Time-stamp: <2011-01-03 21:52:33EST generic.lisp>
;; Time-stamp: <2011-01-18 22:49:26EST 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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment