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

Forgot that we have not yet implemented stub functions for cl_subtypep().

Browse source
This commit is contained in:
jjgarcia 2005-01-11 14:31:13 +00:00
parent 2b8bfd6891
commit 5945a751d3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/file.d
View file

@ -2395,7 +2395,7 @@ for the string ~S.",
@(defun make-string-output-stream (&key (element_type @'base-char'))
@
if (Null(cl_subtypep(element_type, @'character'))) {
if (Null(funcall(3, @'subtypep', element_type, @'character'))) {
FEerror("In MAKE-STRING-OUTPUT-STREAM, the argument :ELEMENT-TYPE (~A) must be a subtype of character",
1, element_type);
}