mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 15:40:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo

Browse source
This commit is contained in:
jgarcia 2006-04-18 19:22:45 +00:00
parent 5774f396a3
commit 0758486bf5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/clos/conditions.lsp
View file

@ -294,7 +294,7 @@ strings."
(defun make-condition (type &rest slot-initializations)
(let ((class (or (and (symbolp type) (find-class type nil))
(first (last (sort (find-subclasses-of-type type (find-class 'condition))
#'clos::subclassp))))))
#'si::subclassp))))))
(unless class
(error 'SIMPLE-TYPE-ERROR
:DATUM type