[armedbear-cvs] r12217 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri Oct 23 17:34:37 2009
New Revision: 12217

Log:
Clean up use of RESOLVE (remove unnecessary case and replace one with REQUIRE).

Modified:
   trunk/abcl/src/org/armedbear/lisp/apropos.lisp
   trunk/abcl/src/org/armedbear/lisp/remove.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/apropos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/apropos.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/apropos.lisp	Fri Oct 23 17:34:37 2009
@@ -33,7 +33,6 @@
 
 (in-package #:system)
 
-(resolve 'write-string)
 
 (defun apropos-list (string-designator &optional package-designator)
   (if package-designator

Modified: trunk/abcl/src/org/armedbear/lisp/remove.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/remove.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/remove.lisp	Fri Oct 23 17:34:37 2009
@@ -31,7 +31,7 @@
 
 (in-package "SYSTEM")
 
-(resolve 'delete) ; MUMBLE-DELETE-FROM-END
+(require "DELETE") ; MUMBLE-DELETE-FROM-END
 
 ;;; From CMUCL.