if* -> cond to be friendly of non-Allegro Lisps

e40 · Sep 16, 2015 · f164678 · f164678
1 parent 1d1173f
commit f164678
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/cl-quakeinfo.asd b/cl-quakeinfo.asd
@@ -9,11 +9,13 @@
 
 (asdf:disable-output-translations)
 
-(if* asdf:*central-registry*
-   then (push #p"../cl-geocode/" asdf:*central-registry*)
-   else (setf asdf:*central-registry*
-	  '(*default-pathname-defaults*
-	    #p"../cl-geocode/")))
+(cond
+ (asdf:*central-registry*
+  (push #p"../cl-geocode/" asdf:*central-registry*))
+ (t
+  (setf asdf:*central-registry*
+    '(*default-pathname-defaults*
+      #p"../cl-geocode/"))))
 
 (asdf:defsystem cl-quakeinfo
     :default-component-class cl-quakeinfo-source-file