diff --git a/flexi-streams.asd b/flexi-streams.asd
index 2455fe0..764a67d 100644
--- a/flexi-streams.asd
+++ b/flexi-streams.asd
@@ -70,5 +70,5 @@
 
 (defmethod perform ((o test-op) (c (eql (find-system 'flexi-streams))))
   (operate 'load-op 'flexi-streams-test)
-  (funcall (intern (symbol-name :run-all-tests)
-                   (find-package :flexi-streams-test))))
+  (funcall (intern "RUN-ALL-TESTS"
+                   (find-package "FLEXI-STREAMS-TEST"))))
diff --git a/packages.lisp b/packages.lisp
index e012b02..6728f1f 100644
--- a/packages.lisp
+++ b/packages.lisp
@@ -29,62 +29,62 @@
 
 (in-package :cl-user)
 
-(unless (find-symbol (symbol-name :stream-file-position) :trivial-gray-streams)
+(unless (find-symbol "STREAM-FILE-POSITION" :trivial-gray-streams)
   (error "You need a newer version of TRIVIAL-GRAY-STREAMS."))
 
 (defpackage :flexi-streams
   (:use :cl :trivial-gray-streams)
   (:nicknames :flex)  
-  (:shadow #+:lispworks :with-accessors
-           :defconstant)
-  (:export :*default-eol-style*
-           :*default-little-endian*
-           :*substitution-char*
-           :accept-overlong-sequence
-           :char-length
-           :external-format-condition
-           :external-format-condition-external-format
-           :external-format-eol-style
-           :external-format-error
-           :external-format-encoding-error
-           :external-format-equal
-           :external-format-id
-           :external-format-little-endian
-           :external-format-name
-           :flexi-input-stream
-           :flexi-output-stream
-           :flexi-io-stream
-           :flexi-stream
-           :flexi-stream-bound
-           :flexi-stream-column
-           :flexi-stream-external-format
-           :flexi-stream-element-type
-           :flexi-stream-element-type-error
-           :flexi-stream-element-type-error-element-type
-           :flexi-stream-error
-           :flexi-stream-out-of-sync-error
-           :flexi-stream-position
-           :flexi-stream-stream
-           :get-output-stream-sequence
-           :in-memory-stream
-           :in-memory-stream-closed-error
-           :in-memory-stream-error
-           :in-memory-stream-position-spec-error
-           :in-memory-stream-position-spec-error-position-spec
-           :in-memory-input-stream
-           :in-memory-output-stream
-           :list-stream
-           :make-external-format
-           :make-in-memory-input-stream
-           :make-in-memory-output-stream
-           :make-flexi-stream
-           :octet
-           :octet-length
-           :octets-to-string
-           :output-stream-sequence-length
-           :peek-byte
-           :string-to-octets
-           :unread-byte
-           :vector-stream
-           :with-input-from-sequence
-           :with-output-to-sequence))
+  (:shadow #+:lispworks #:with-accessors
+           #:defconstant)
+  (:export #:*default-eol-style*
+           #:*default-little-endian*
+           #:*substitution-char*
+           #:accept-overlong-sequence
+           #:char-length
+           #:external-format-condition
+           #:external-format-condition-external-format
+           #:external-format-eol-style
+           #:external-format-error
+           #:external-format-encoding-error
+           #:external-format-equal
+           #:external-format-id
+           #:external-format-little-endian
+           #:external-format-name
+           #:flexi-input-stream
+           #:flexi-output-stream
+           #:flexi-io-stream
+           #:flexi-stream
+           #:flexi-stream-bound
+           #:flexi-stream-column
+           #:flexi-stream-external-format
+           #:flexi-stream-element-type
+           #:flexi-stream-element-type-error
+           #:flexi-stream-element-type-error-element-type
+           #:flexi-stream-error
+           #:flexi-stream-out-of-sync-error
+           #:flexi-stream-position
+           #:flexi-stream-stream
+           #:get-output-stream-sequence
+           #:in-memory-stream
+           #:in-memory-stream-closed-error
+           #:in-memory-stream-error
+           #:in-memory-stream-position-spec-error
+           #:in-memory-stream-position-spec-error-position-spec
+           #:in-memory-input-stream
+           #:in-memory-output-stream
+           #:list-stream
+           #:make-external-format
+           #:make-in-memory-input-stream
+           #:make-in-memory-output-stream
+           #:make-flexi-stream
+           #:octet
+           #:octet-length
+           #:octets-to-string
+           #:output-stream-sequence-length
+           #:peek-byte
+           #:string-to-octets
+           #:unread-byte
+           #:vector-stream
+           #:with-input-from-sequence
+           #:with-output-to-sequence))
diff --git a/test/packages.lisp b/test/packages.lisp
index 0953508..c6ac748 100644
--- a/test/packages.lisp
+++ b/test/packages.lisp
@@ -32,10 +32,10 @@
 (defpackage :flexi-streams-test
   (:use :cl :flexi-streams)
   (:import-from :flexi-streams
-                :with-unique-names
-                :with-rebinding
-                :char*
-                :normalize-external-format
-                :+name-map+
-                :+shortcut-map+)
-  (:export :run-all-tests))
+                #:with-unique-names
+                #:with-rebinding
+                #:char*
+                #:normalize-external-format
+                #:+name-map+
+                #:+shortcut-map+)
+  (:export #:run-all-tests))