[climacs-cvs] CVS update: climacs/climacs.asd

[Robert Strandh]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv1923

Modified Files:
	climacs.asd 
Log Message:
Added improvement to asdf compilation procedure.  

Thanks to Andreas Fuchs. 

Date: Sat Jan  1 15:39:56 2005
Author: rstrandh

Index: climacs/climacs.asd
diff -u climacs/climacs.asd:1.6 climacs/climacs.asd:1.7
--- climacs/climacs.asd:1.6	Wed Dec 29 06:45:37 2004
+++ climacs/climacs.asd	Sat Jan  1 15:39:55 2005
@@ -57,3 +57,15 @@
    "syntax"
    "kill-ring"
    "gui")
+
+#+asdf
+(defmethod asdf:perform :around ((o asdf:compile-op)
+                                 (c (eql (asdf:find-component (asdf:find-system :climacs) "skiplist-package"))))
+  (cond
+    ((null (probe-file (first (asdf:input-files o c))))
+     (cerror "Retry loading climacs."
+             "~@<You need to download & install Flexichain ~
+               separately! See the file INSTALL in the Climacs distribution ~
+               for instructions.~@:>" nil)
+     (asdf:perform o c))
+    (t (call-next-method o c))))