[slime-cvs] CVS update: slime/swank-openmcl.lisp

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv27673

Modified Files:
	swank-openmcl.lisp 
Log Message:
Removed obsolete `swank-compile-system'.

Date: Fri Apr 30 19:16:29 2004
Author: lgorrie

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.72 slime/swank-openmcl.lisp:1.73
--- slime/swank-openmcl.lisp:1.72	Tue Apr  6 06:42:53 2004
+++ slime/swank-openmcl.lisp	Fri Apr 30 19:16:28 2004
@@ -202,16 +202,6 @@
           (*buffer-offset* nil))
       (compile-file filename :load load-p))))
 
-(defimplementation swank-compile-system (system-name)
-  (with-compilation-hooks ()
-    (let ((*buffer-name* nil)
-          (*buffer-offset* nil))
-      (let ((oos (find-symbol (string :oos) :asdf))
-            (load-op (find-symbol (string :load-op) :asdf)))
-        (cond ((and oos load-op)
-               (funcall oos load-op system-name))
-              (t (error "ASDF not loaded")))))))
-
 (defimplementation swank-compile-string (string &key buffer position)
   (with-compilation-hooks ()
     (let ((*buffer-name* buffer)