( defpackage :cl-without-constants ( :use :cl ) ( :shadow . #. ( loop :for s :being :the :external-symbols :of :cl :when ( and ( boundp s ) ( constantp s ) ) :collect s ) ) )

(in-package :cl-without-constants)

(let ((t '((a b) (c) d ((e ((((f))))))))) (car t))