package prefixes and quoted keywords

coalton.asd

@@ -88,8 +88,8 @@
                (:file "file")
                (:file "prelude")))
 
-(when (member (getenv "COALTON_PORTABLE_BIGFLOAT") '("1" "true" "t") :test 'equalp)
-  (pushnew :coalton-portable-bigfloat *features*))
+(cl:when (cl:member (uiop:getenv "COALTON_PORTABLE_BIGFLOAT") '("1" "true" "t") :test #'cl:equalp)
+  (cl:pushnew ':coalton-portable-bigfloat cl:*features*))
 
 (asdf:defsystem #:coalton/library/big-float
   :description "An arbitrary precision floating point library."
@@ -164,13 +164,13 @@
 ;;; implementation.
 
 #+sbcl
-(handler-case
-    (progn
+(cl:handler-case
+    (cl:progn
       (sb-ext:assert-version->= 2 2 2)
-      (pushnew :sbcl-post-2-2-2 *features*))
-  (error (c)
+      (cl:pushnew ':sbcl-post-2-2-2 cl:*features*))
+  (cl:error (c)
     (declare (ignore c))
-    (pushnew :sbcl-pre-2-2-2 *features*)))
+    (cl:pushnew ':sbcl-pre-2-2-2 cl:*features*)))
 
 (asdf:defsystem #:coalton/hashtable-shim
   :description "Shim over Common Lisp hash tables with custom hash functions, for use by the Coalton standard library."