From 620f0f79cedc34f81c7dfcac334a3ccda50f5e56 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 3 Sep 1993 13:44:19 +0000 Subject: [PATCH] Tweaked the define-superclasses for ARRAY for Dylan semantics. --- code/type.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/code/type.lisp b/code/type.lisp index fee461473..d01dc0cd9 100644 --- a/code/type.lisp +++ b/code/type.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.19 1993/09/01 00:09:19 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/type.lisp,v 1.20 1993/09/03 13:44:19 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1655,9 +1655,9 @@ (values nil t))))) (define-superclasses array - (generic-string string) - (generic-vector vector) - (generic-array)) + (string string) + (vector vector) + (array)) (defun array-types-intersect (type1 type2) (declare (type array-type type1 type2)) -- GitLab