From 5945a751d368dea8550f882ba568574e5285b91f Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Tue, 11 Jan 2005 14:31:13 +0000 Subject: [PATCH] Forgot that we have not yet implemented stub functions for cl_subtypep(). --- src/c/file.d | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/c/file.d b/src/c/file.d index 6aa061ff2..f96ee6685 100644 --- a/src/c/file.d +++ b/src/c/file.d @@ -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); }