(setq clcs_shadow '(CONDITIONS::BREAK CONDITIONS::ERROR CONDITIONS::CERROR CONDITIONS::WARN CONDITIONS::CHECK-TYPE CONDITIONS::ASSERT CONDITIONS::ETYPECASE CONDITIONS::CTYPECASE CONDITIONS::ECASE CONDITIONS::CCASE )) (setq lisp_unexport '(LISP::LAMBDA-BLOCK-CLOSURE LISP::BYE LISP::QUIT LISP::EXIT LISP::IEEE-FLOATING-POINT LISP::DEFENTRY LISP::VOID LISP::ALLOCATE-CONTIGUOUS-PAGES LISP::UNSIGNED-SHORT LISP::DOUBLE LISP::BY LISP::GBC LISP::DEFCFUN LISP::SAVE LISP::MAXIMUM-CONTIGUOUS-PAGES LISP::SPICE LISP::DEFLA LISP::ALLOCATED-PAGES LISP::SUN LISP::INT LISP::USE-FAST-LINKS LISP::CFUN LISP::UNSIGNED-CHAR LISP::HELP LISP::HELP* LISP::MACRO LISP::*BREAK-ENABLE* LISP::CLINES LISP::LAMBDA-CLOSURE LISP::OBJECT LISP::FAT-STRING LISP::SIGNED-SHORT LISP::MC68020 LISP::LAMBDA-BLOCK LISP::TAG LISP::PROCLAMATION LISP::ALLOCATED-CONTIGUOUS-PAGES LISP::*EVAL-WHEN-COMPILE* LISP::SIGNED-CHAR LISP::*IGNORE-MAXIMUM-PAGES* LISP::*LINK-ARRAY* LISP::KCL LISP::BSD LISP::ALLOCATE-RELOCATABLE-PAGES LISP::ALLOCATE LISP::UNIX LISP::MAXIMUM-ALLOCATABLE-PAGES LISP::ALLOCATED-RELOCATABLE-PAGES LISP::SYSTEM LISP::KYOTO LISP::CCLOSURE)) (do-external-symbols (s "LISP") (if (not(member s lisp_unexport)) (import s "COMMON-LISP"))) (do-external-symbols (s "PCL") (import s "COMMON-LISP")) (do-external-symbols (s "CONDITIONS") (if (member s clcs_shadow) (shadowing-import s "COMMON-LISP") (import s "COMMON-LISP"))) (do-symbols (s "COMMON-LISP") (export s "COMMON-LISP")) (import 'user::quit "common-lisp-user") (rename-package 'common-lisp 'common-lisp '(cl)) (rename-package 'common-lisp-user 'common-lisp-user '(cl-user))