Changeset 3739

Timestamp:

09/14/03 01:38:42 (19 years ago)

Author:

piso

Message:

Work in progress.

File:

• trunk/j/src/org/armedbear/lisp/subtypep.lisp (modified) (4 diffs)

trunk/j/src/org/armedbear/lisp/subtypep.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: subtypep.lisp,v 1.4 2003-09-13 18:43:24 piso Exp $
+;;; $Id: subtypep.lisp,v 1.5 2003-09-14 01:38:42 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -17 +17 @@
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+
+;;; Adapted from GCL.
 
 (in-package "SYSTEM")
@@ -27 +29 @@
              (BIT-VECTOR VECTOR)
              (BOOLEAN SYMBOL)
+             (BUILT-IN-CLASS STANDARD-CLASS)
              (CHARACTER ATOM)
+             (CLASS STANDARD-OBJECT)
              (COMPLEX NUMBER)
              (CONS LIST)
@@ -50 +54 @@
              (SIMPLE-VECTOR VECTOR SIMPLE-ARRAY)
              (STANDARD-CHAR CHARACTER)
+             (STANDARD-CLASS CLASS)
+             (STANDARD-OBJECT ATOM)
              (STRING VECTOR)
              (SYMBOL ATOM)