```common lisp
(cl:in-package #:common-lisp-user)

(defpackage #:sicl-common-lisp
  (:nicknames #:sicl-cl #:scl)
  (:export 
   . #.(loop for symbol being each external-symbol of '#:common-lisp
	     collect (symbol-name symbol))))

(defpackage #:sicl-cons
  (:use #:sicl-common-lisp)
  (:export
   ;; The symbols LOAD-CAR, LOAD-CDR, STORE-CAR, and STORE-CDR name
   ;; special operators.  The operators LOAD-CAR and LOAD-CDR are
   ;; similar to the functions CAR and CDR, except that they require
   ;; that the argument be a CONS, or else an error is signaled.  The
   ;; operators STORE-CAR and STORE-CDR are like the functions RPLACA
   ;; and RPLACD, except that they must be evaluated in a context
   ;; where no value is required.  
   #:load-car #:load-cdr #:store-car #:store-cdr
   ))

```

Use the normal CL package.
user
```common lisp
(cl:in-package #:common-lisp-user)

(defpackage #:sicl-cons
  (:use #:common-lisp)
  (:export
   ;; The symbols LOAD-CAR, LOAD-CDR, STORE-CAR, and STORE-CDR name
   ;; special operators.  The operators LOAD-CAR and LOAD-CDR are
   ;; similar to the functions CAR and CDR, except that they require
   ;; that the argument be a CONS, or else an error is signaled.  The
   ;; operators STORE-CAR and STORE-CDR are like the functions RPLACA
   ;; and RPLACD, except that they must be evaluated in a context
   ;; where no value is required.  
   #:load-car #:load-cdr #:store-car #:store-cdr
   ))

```
assistant