Added support for Clozure CL

lyrra · Dec 17, 2009 · ee34cef · ee34cef
1 parent 0efec49
commit ee34cef
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/console.lisp b/console.lisp
@@ -786,7 +786,8 @@ resource is stored; see also `find-resource'."
 
 (defvar *module-directories* 
   (list (if *executable*
-	    (make-pathname :directory (pathname-directory (car sb-ext:*posix-argv*)))
+            (make-pathname :directory (pathname-directory (car #+sbcl sb-ext:*posix-argv*
+                                                               #+clozure ccl:*command-line-argument-list*)))
 	    (make-pathname :directory 
 			   (pathname-directory 
 			    (make-pathname