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

[Helmut Eller]

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

Modified Files:
	swank-openmcl.lisp 
Log Message:
(compile-system-for-emacs): Remove compile time dependency on ASDF.
Date: Thu Feb  5 02:01:51 2004
Author: heller

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.59 slime/swank-openmcl.lisp:1.60
--- slime/swank-openmcl.lisp:1.59	Wed Feb  4 17:08:07 2004
+++ slime/swank-openmcl.lisp	Thu Feb  5 02:01:50 2004
@@ -200,7 +200,11 @@
   (with-compilation-hooks ()
     (let ((*buffer-name* nil)
           (*buffer-offset* nil))
-      (asdf:oos 'asdf:load-op system-name))))
+      (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 compile-string-for-emacs (string &key buffer position)
   (with-compilation-hooks ()