Changeset 4713

Timestamp:

11/12/03 21:32:23 (19 years ago)

Author:

piso

Message:

SUBTYPEP: work in progress.

File:

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

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

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: subtypep.lisp,v 1.26 2003-11-11 18:30:13 piso Exp $
+;;; $Id: subtypep.lisp,v 1.27 2003-11-12 21:32:23 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -221 +221 @@
 
 (defun subtypep (type1 type2)
-  (when (or (eq type1 type2)
+  (when (or (equal type1 type2)
             (null type1)
             (eq type2 t))