+.PHONY: all clean test test-acl test-sbcl
+
+test-file:=`pwd`/run-tests.lisp
all:
clean:
- @rm -rf `find . -name \*~ -or -name \*.fasl -or -name \*.x86f -or -name \*.fas -or -name \*.err -or -name \*.fasl[am][18]\* -or -name \*.ufsl -or -name \*.dfsl -or -name \*.cfsl`
+ @find . -type f -name "*.fasl*" -or -name "*.ufsl" -or -name "*.x86f" \
+ -or -name "*.fas" -or -name "*.pfsl" -or -name "*.dfsl" \
+ -or -name "*~" -or -name ".#*" -or -name "#*#" | xargs rm -f
+
+test: test-alisp
+
+test-alisp:
+ alisp8 -q -L $(test-file)
+
+test-mlisp:
+ mlisp -q -L $(test-file)
+
+test-sbcl:
+ sbcl --noinform --disable-debugger --userinit $(test-file)
+
+test-cmucl:
+ lisp -init $(test-file)
+
+test-lw:
+ lw-console -init $(test-file)
+
+test-scl:
+ scl -init $(test-file)
+
+test-clisp:
+ clisp -norc -q -i $(test-file)
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: equal.lisp,v 1.13 2003/04/29 04:56:58 kevin Exp $
+;;;; $Id: equal.lisp,v 1.14 2003/05/07 21:57:10 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(complex
(and (generalized-equal (realpart obj1) (realpart obj2))
(generalized-equal (imagpart obj1) (imagpart obj2))))
- (standard-xstructure
+ (structure-object
(generalized-equal-fielded-object obj1 obj2))
(standard-object
(generalized-equal-fielded-object obj1 obj2))