X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=equal.lisp;h=eb9474ce5ec7f7deb2e9ffb2355181ee43c152c6;hp=4ba6049dab960e351b8d5e9f3a3bd7b50175e325;hb=c806ada1a12795e377d2ad588e56e051c7a92598;hpb=e8c34efef61039ff3319203710b533be1a7906ca diff --git a/equal.lisp b/equal.lisp index 4ba6049..eb9474c 100644 --- a/equal.lisp +++ b/equal.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: equal.lisp,v 1.15 2003/06/25 18:08:09 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -17,8 +17,7 @@ ;;;; ************************************************************************* -(in-package :kmrcl) -(declaim (optimize (speed 3) (safety 1) (compilation-speed 0) (debug 3))) +(in-package #:kmrcl) (defun generalized-equal (obj1 obj2)