r9017: openmcl fixes

diff --git a/Makefile.common b/Makefile.common
index c3aedeb5157a78f38ce53b9873d101b511d4aa5c..846a75425c6bd32d4911b6b9f36db69d3fbd1b1f 100644 (file)
--- a/Makefile.common
+++ b/Makefile.common
@@ -4,7 +4,7 @@ all:
 .PHONY: clean
 clean:
        @rm -rf .bin
-       @rm -f *.ufsl *.fsl *.fas *.x86f *.sparcf *.fasl 
+       @rm -f *.ufsl *.fsl *.fas *.x86f *.sparcf *.fasl  *.pfsl *.dfsl
        @rm -f *.fasla8 *.fasla16 *.faslm8 *.faslm16 *.faslmt
        @rm -f *~ *.bak *.orig *.err \#*\# .#*
        @rm -f *.so *.a

diff --git a/base/utils.lisp b/base/utils.lisp
index 55f2bc91e540401d957a3e3679f18ebfc4b9bc60..2456d368bb3f8a961c63a7365a930e127cfa3933 100644 (file)
--- a/base/utils.lisp
+++ b/base/utils.lisp
@@ -76,7 +76,7 @@
   #+allegro (mp:make-process-lock :name name)
   #+cmu (mp:make-lock name)
   #+lispworks (mp:make-lock :name name)
-  #+openmcl (ccl:make-lock :name name)
+  #+openmcl (ccl:make-lock name)
   #+sb-thread (sb-thread:make-mutex :name name)
   #+scl (thread:make-lock name)
   #-(or allegro cmu lispworks openmcl sb-thread scl) (declare (ignore name))