Fix keyword internalization in defsystem and defpackage

cl-ppcre-unicode.asd

@@ -38,18 +38,16 @@
                         :components ((:file "packages")
                                      (:file "resolver"))))
   :depends-on (:cl-ppcre :cl-unicode)
-  :in-order-to ((test-op (test-op :cl-ppcre-unicode/test))))
+  :in-order-to ((test-op (test-op "cl-ppcre-unicode/test"))))
 
-(defsystem :cl-ppcre-unicode/test
+(defsystem "cl-ppcre-unicode/test"
   :description "Perl-compatible regular expression library tests (Unicode)"
   :author "Dr. Edi Weitz"
   :license "BSD"
-  :depends-on (:cl-ppcre-unicode :cl-ppcre/test)
+  :depends-on ("cl-ppcre-unicode" "cl-ppcre/test")
   :components ((:module "test"
                         :serial t
                         :components ((:file "unicode-tests"))))
   :perform (test-op (o c)
-             (funcall (intern (symbol-name :run-all-tests)
-                              (find-package :cl-ppcre-test))
-                      :more-tests (intern (symbol-name :unicode-test)
-                                          (find-package :cl-ppcre-test)))))
+             (symbol-call '#:cl-ppcre-test '#:run-all-tests
+                      :more-tests (intern "UNICODE-TEST" '#:cl-ppcre-test))))

cl-ppcre-unicode/packages.lisp

@@ -31,8 +31,8 @@
 
 (defpackage :cl-ppcre-unicode
   #+:genera
-  (:shadowing-import-from :common-lisp :lambda :string)
+  (:shadowing-import-from :common-lisp #:lambda #:string)
   (:use #-:genera :cl #+:genera :future-common-lisp
         :cl-ppcre :cl-unicode)
-  (:import-from :cl-ppcre :signal-syntax-error)
-  (:export :unicode-property-resolver))
+  (:import-from :cl-ppcre #:signal-syntax-error)
+  (:export #:unicode-property-resolver))

cl-ppcre.asd

@@ -61,9 +61,9 @@
                #-:use-acl-regexp2-engine
                (:file "scanner")
                (:file "api"))
-  :in-order-to ((test-op (test-op :cl-ppcre/test))))
+  :in-order-to ((test-op (test-op "cl-ppcre/test"))))
 
-(defsystem :cl-ppcre/test
+(defsystem "cl-ppcre/test"
   :description "Perl-compatible regular expression library tests"
   :author "Dr. Edi Weitz"
   :license "BSD"
@@ -74,5 +74,4 @@
                                      (:file "tests")
                                      (:file "perl-tests"))))
   :perform (test-op (o c)
-             (funcall (intern (symbol-name :run-all-tests)
-                              (find-package :cl-ppcre-test)))))
+             (symbol-call '#:cl-ppcre-test '#:run-all-tests)))

packages.lisp

@@ -32,39 +32,39 @@
 (defpackage :cl-ppcre
   (:nicknames :ppcre)
   #+:genera
-  (:shadowing-import-from :common-lisp :lambda :simple-string :string)
+  (:shadowing-import-from :common-lisp #:lambda #:simple-string #:string)
   (:use #-:genera :cl #+:genera :future-common-lisp)
-  (:shadow :digit-char-p :defconstant)
-  (:export :parse-string
-           :create-scanner
-           :create-optimized-test-function
-           :parse-tree-synonym
-           :define-parse-tree-synonym
-           :scan
-           :scan-to-strings
-           :do-scans
-           :do-matches
-           :do-matches-as-strings
-           :count-matches
-           :all-matches
-           :all-matches-as-strings
-           :split
-           :regex-replace
-           :regex-replace-all
-           :regex-apropos
-           :regex-apropos-list
-           :quote-meta-chars
-           :*regex-char-code-limit*
-           :*use-bmh-matchers*
-           :*allow-quoting*
-           :*allow-named-registers*
-           :*optimize-char-classes*
-           :*property-resolver*
-           :*look-ahead-for-suffix*
-           :ppcre-error
-           :ppcre-invocation-error
-           :ppcre-syntax-error
-           :ppcre-syntax-error-string
-           :ppcre-syntax-error-pos
-           :register-groups-bind
-           :do-register-groups))
+  (:shadow #:digit-char-p #:defconstant)
+  (:export #:parse-string
+           #:create-scanner
+           #:create-optimized-test-function
+           #:parse-tree-synonym
+           #:define-parse-tree-synonym
+           #:scan
+           #:scan-to-strings
+           #:do-scans
+           #:do-matches
+           #:do-matches-as-strings
+           #:count-matches
+           #:all-matches
+           #:all-matches-as-strings
+           #:split
+           #:regex-replace
+           #:regex-replace-all
+           #:regex-apropos
+           #:regex-apropos-list
+           #:quote-meta-chars
+           #:*regex-char-code-limit*
+           #:*use-bmh-matchers*
+           #:*allow-quoting*
+           #:*allow-named-registers*
+           #:*optimize-char-classes*
+           #:*property-resolver*
+           #:*look-ahead-for-suffix*
+           #:ppcre-error
+           #:ppcre-invocation-error
+           #:ppcre-syntax-error
+           #:ppcre-syntax-error-string
+           #:ppcre-syntax-error-pos
+           #:register-groups-bind
+           #:do-register-groups))

test/packages.lisp

@@ -30,8 +30,9 @@
 (in-package :cl-user)
 
 (defpackage :cl-ppcre-test
-  #+genera (:shadowing-import-from :common-lisp :lambda)
+  #+genera
+  (:shadowing-import-from :common-lisp #:lambda)
   (:use #-:genera :cl #+:genera :future-common-lisp :cl-ppcre)
-  (:import-from :cl-ppcre :*standard-optimize-settings*
-                          :string-list-to-simple-string)
-  (:export :run-all-tests :unicode-test))
+  (:import-from :cl-ppcre #:*standard-optimize-settings*
+                          #:string-list-to-simple-string)
+  (:export #:run-all-tests #:unicode-test))