Changeset 4371

Timestamp:

10/14/03 16:04:29 (18 years ago)

Author:

piso

Message:

(in-package "SYSTEM")

File:

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

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

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: assoc.lisp,v 1.3 2003-06-11 00:33:17 piso Exp $
+;;; $Id: assoc.lisp,v 1.4 2003-10-14 16:04:29 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -18 +18 @@
 ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 
-(in-package "COMMON-LISP")
+;;; From CMUCL.
 
-(export '(assoc assoc-if assoc-if-not
-          rassoc rassoc-if rassoc-if-not))
-
-;;; From CMUCL.
+(in-package "SYSTEM")
 
 (defmacro assoc-guts (test-guy)