;summary:
defconstant  shared by all.
throw catch  shared by all.
quote  k-primitives has its own
&optional several random k-
do defvar defun &rest  effectively, all share
&aux effectively, all share
&body &key
cond - + values import export lambda function progn t --
   keyword, otherwise all share.

((("DEFCONSTANT") ((DEFCONSTANT "TAG"
                                "K-DIAG"
                                "K-USER"
                                "K-FASDUMP"
                                "K-SYMBOL"
                                "K-K2"
                                "K-KBUG-STREAMS"
                                "K-COLD"
                                "K-NUBUS-STUFF"
                                "K-K-DEBUG"
                                "K-SETF"
                                "K-LISP-INTERNALS"
                                "K-KBUG"
                                "K-TRAP"
                                "K-ARRAY"
                                "K-NEW-MATH"
                                "K-CONS"
                                "K-TRANSPORTER-RAM"
                                "K-BOOT"
                                "K-MEMORY-MANAGEMENT-INTERFACE"
                                "K-AREA-DATA"
                                "K-REGION-DATA"
                                "K-GC-FAULT"
                                "K-MAP-FAULT"
                                "K-REGION-BITS"
                                "K-MEMORY-MANAGEMENT"
                                "K-QUANTUM-MAP"
                                "K-PHYSICAL-CLUSTER-DATA"
                                "K-VIRTUAL-MEMORY"
                                "K-PAGING-DEVICES"
                                "K-DATATYPE-RAM"
                                "K-GC-RAM"
                                "K-MAP"
                                "K-TIMERS"
                                "K-VINCULUM"
                                "K-GLOBAL-REGISTERS"
                                "K-HARDWARE"
                                "K-PRIMITIVES"
                                "K-GLOBAL"
                                "FASDUMP"
                                "SYMBOL"
                                "K2"
                                "KBUG-STREAMS"
                                "COLD"
                                "NUBUS-STUFF"
                                "K-DEBUG"
                                "SETF"
                                "NLISP"
                                "LISP-INTERNALS"
                                "KBUG"
                                "TRAP"
                                "ARRAY"
                                "NEW-MATH"
                                "CONS"
                                "TRANSPORTER-RAM"
                                "BOOT"
                                "MEMORY-MANAGEMENT-INTERFACE"
                                "AREA-DATA"
                                "REGION-DATA"
                                "GC-FAULT"
                                "MAP-FAULT"
                                "REGION-BITS"
                                "MEMORY-MANAGEMENT"
                                "QUANTUM-MAP"
                                "PHYSICAL-CLUSTER-DATA"
                                "VIRTUAL-MEMORY"
                                "PAGING-DEVICES"
                                "DATATYPE-RAM"
                                "GC-RAM"
                                "MAP"
                                "TIMERS"
                                "VINCULUM"
                                "GLOBAL-REGISTERS"
                                "HARDWARE"
                                "PRIMITIVES"
                                "NC"
                                "NETWORK-USER"
                                "SDU"
                                "S-TERMINAL"
                                "KERMIT"
                                "TOPS20"
                                "ANSI"
                                "TM"
                                "TFRAME"
                                "SPELL"
                                "LAMBDA"
                                "TELNET"
                                "FTP"
                                "TCP-APPLICATION"
                                "TCP"
                                "UDP"
                                "ICMP"
                                "INTERNET"
                                "ARP"
                                "QUOTE"
                                "CADR"
                                "UNIX"
                                "SRCCOM"
                                "HACKS"
                                "MATH"
                                "MICRO-ASSEMBLER"
                                "ZWEI"
                                "FORMAT"
                                "PRESS"
                                "SUPDUP"
                                "TIME"
                                "FED"
                                "EH"
                                "TV"
                                "METER"
                                "QFASL-REL"
                                "TAPE"
                                "FILE-SYSTEM"
                                "COLOR"
                                "NETWORK"
                                "ETHERNET"
                                "CHAOS"
                                "GARBAGE-COLLECTOR"
                                "USER"
                                "COMPILER"
                                "SYSTEM-INTERNALS"
                                "LISP"
                                "SYSTEM"
                                "GLOBAL")
                   ))
 (("THROW" "CATCH") ((CATCH "TAG"
                            "K-DIAG"
                            "K-USER"
                            "K-FASDUMP"
                            "K-COLD"
                            "K-SETF"
                            "K-KBUG"
                            "K-GLOBAL"
                            "FASDUMP"
                            "COLD"
                            "SETF"
                            "LISP-INTERNALS"
                            "KBUG"
                            "NC"
                            "NETWORK-USER"
                            "SDU"
                            "S-TERMINAL"
                            "KERMIT"
                            "TOPS20"
                            "ANSI"
                            "TM"
                            "TFRAME"
                            "SPELL"
                            "LAMBDA"
                            "TELNET"
                            "FTP"
                            "TCP-APPLICATION"
                            "TCP"
                            "UDP"
                            "ICMP"
                            "INTERNET"
                            "ARP"
                            "QUOTE"
                            "CADR"
                            "UNIX"
                            "SRCCOM"
                            "HACKS"
                            "MATH"
                            "MICRO-ASSEMBLER"
                            "ZWEI"
                            "FORMAT"
                            "PRESS"
                            "SUPDUP"
                            "TIME"
                            "FED"
                            "EH"
                            "TV"
                            "METER"
                            "QFASL-REL"
                            "TAPE"
                            "FILE-SYSTEM"
                            "COLOR"
                            "NETWORK"
                            "ETHERNET"
                            "CHAOS"
                            "GARBAGE-COLLECTOR"
                            "USER"
                            "COMPILER"
                            "SYSTEM-INTERNALS"
                            "LISP"
                            "SYSTEM"
                            "GLOBAL")
                     ))
 (("QUOTE") ((:QUOTE "KEYWORD") (K-PRIMITIVES::QUOTE "K-PRIMITIVES")
                                (QUOTE "TAG" "K-DIAG" "K-USER" "K-FASDUMP" 
                                 "K-COLD" "K-SETF" "K-KBUG" "K-GLOBAL" 
                                 "FASDUMP" "SYMBOL" "K2" "KBUG-STREAMS" "COLD"
                                 "NUBUS-STUFF" "K-DEBUG" "SETF" "NLISP" 
                                 "LISP-INTERNALS" "KBUG" "TRAP" "ARRAY" 
                                 "NEW-MATH" "CONS" "TRANSPORTER-RAM" "BOOT" 
                                 "MEMORY-MANAGEMENT-INTERFACE" "AREA-DATA" 
                                 "REGION-DATA" "GC-FAULT" "MAP-FAULT" 
                                 "REGION-BITS" "MEMORY-MANAGEMENT" 
                                 "QUANTUM-MAP" "PHYSICAL-CLUSTER-DATA" 
                                 "VIRTUAL-MEMORY" "PAGING-DEVICES" 
                                 "DATATYPE-RAM" "GC-RAM" "MAP" "TIMERS" 
                                 "VINCULUM" "GLOBAL-REGISTERS" "PRIMITIVES" 
                                 "NC" "NETWORK-USER" "SDU" "S-TERMINAL" 
                                 "KERMIT" "TOPS20" "ANSI" "TM" "TFRAME" 
                                 "SPELL" "LAMBDA" "TELNET" "FTP" 
                                 "TCP-APPLICATION" "TCP" "UDP" "ICMP" 
                                 "INTERNET" "ARP" "QUOTE" "CADR" "UNIX" 
                                 "SRCCOM" "HACKS" "MATH" "MICRO-ASSEMBLER" 
                                 "ZWEI" "FORMAT" "PRESS" "SUPDUP" "TIME" "FED"
                                 "EH" "TV" "METER" "QFASL-REL" "TAPE" 
                                 "FILE-SYSTEM" "COLOR" "NETWORK" "ETHERNET" 
                                 "CHAOS" "GARBAGE-COLLECTOR" "USER" "COMPILER"
                                 "SYSTEM-INTERNALS" "LISP" "SYSTEM" "GLOBAL")))
 (("&OPTIONAL")
  ((K-PRIMITIVES::&OPTIONAL "K-PRIMITIVES")
   (K-ARRAY::&OPTIONAL "K-ARRAY")
   (K-NUBUS-STUFF::&OPTIONAL "K-NUBUS-STUFF")
   (K-SYMBOL::&OPTIONAL "K-SYMBOL")
   (&OPTIONAL "TAG"
              "K-DIAG"
              "K-USER"
              "K-FASDUMP"
              "K-COLD"
              "K-SETF"
              "K-KBUG"
              "K-GLOBAL"
              "FASDUMP"
              "SYMBOL"
              "K2"
              "KBUG-STREAMS"
              "COLD"
              "NUBUS-STUFF"
              "K-DEBUG"
              "SETF"
              "NLISP"
              "LISP-INTERNALS"
              "KBUG"
              "TRAP"
              "ARRAY"
              "NEW-MATH"
              "CONS"
              "TRANSPORTER-RAM"
              "BOOT"
              "MEMORY-MANAGEMENT-INTERFACE"
              "AREA-DATA"
              "REGION-DATA"
              "GC-FAULT"
              "MAP-FAULT"
              "REGION-BITS"
              "MEMORY-MANAGEMENT"
              "QUANTUM-MAP"
              "PHYSICAL-CLUSTER-DATA"
              "VIRTUAL-MEMORY"
              "PAGING-DEVICES"
              "DATATYPE-RAM"
              "GC-RAM"
              "MAP"
              "TIMERS"
              "VINCULUM"
              "GLOBAL-REGISTERS"
              "PRIMITIVES"
              "NC"
              "NETWORK-USER"
              "SDU"
              "S-TERMINAL"
              "KERMIT"
              "TOPS20"
              "ANSI"
              "TM"
              "TFRAME"
              "SPELL"
              "LAMBDA"
              "TELNET"
              "FTP"
              "TCP-APPLICATION"
              "TCP"
              "UDP"
              "ICMP"
              "INTERNET"
              "ARP"
              "QUOTE"
              "CADR"
              "UNIX"
              "SRCCOM"
              "HACKS"
              "MATH"
              "MICRO-ASSEMBLER"
              "ZWEI"
              "FORMAT"
              "PRESS"
              "SUPDUP"
              "TIME"
              "FED"
              "EH"
              "TV"
              "METER"
              "QFASL-REL"
              "TAPE"
              "FILE-SYSTEM"
              "COLOR"
              "NETWORK"
              "ETHERNET"
              "CHAOS"
              "GARBAGE-COLLECTOR"
              "USER"
              "COMPILER"
              "SYSTEM-INTERNALS"
              "LISP"
              "SYSTEM"
              "GLOBAL")))
 (("DO" "DEFVAR" "DEFUN" "&REST") ((&REST "TAG"
                                          "K-DIAG"
                                          "K-USER"
                                          "K-FASDUMP"
                                          "K-SYMBOL"
                                          "K-K2"
                                          "K-KBUG-STREAMS"
                                          "K-COLD"
                                          "K-NUBUS-STUFF"
                                          "K-K-DEBUG"
                                          "K-SETF"
                                          "K-LISP-INTERNALS"
                                          "K-KBUG"
                                          "K-TRAP"
                                          "K-ARRAY"
                                          "K-NEW-MATH"
                                          "K-CONS"
                                          "K-TRANSPORTER-RAM"
                                          "K-BOOT"
                                          "K-MEMORY-MANAGEMENT-INTERFACE"
                                          "K-AREA-DATA"
                                          "K-REGION-DATA"
                                          "K-GC-FAULT"
                                          "K-MAP-FAULT"
                                          "K-REGION-BITS"
                                          "K-MEMORY-MANAGEMENT"
                                          "K-QUANTUM-MAP"
                                          "K-PHYSICAL-CLUSTER-DATA"
                                          "K-VIRTUAL-MEMORY"
                                          "K-PAGING-DEVICES"
                                          "K-DATATYPE-RAM"
                                          "K-GC-RAM"
                                          "K-MAP"
                                          "K-TIMERS"
                                          "K-VINCULUM"
                                          "K-GLOBAL-REGISTERS"
                                          "K-PRIMITIVES"
                                          "K-GLOBAL"
                                          "FASDUMP"
                                          "SYMBOL"
                                          "K2"
                                          "KBUG-STREAMS"
                                          "COLD"
                                          "NUBUS-STUFF"
                                          "K-DEBUG"
                                          "SETF"
                                          "NLISP"
                                          "LISP-INTERNALS"
                                          "KBUG"
                                          "TRAP"
                                          "ARRAY"
                                          "NEW-MATH"
                                          "CONS"
                                          "TRANSPORTER-RAM"
                                          "BOOT"
                                          "MEMORY-MANAGEMENT-INTERFACE"
                                          "AREA-DATA"
                                          "REGION-DATA"
                                          "GC-FAULT"
                                          "MAP-FAULT"
                                          "REGION-BITS"
                                          "MEMORY-MANAGEMENT"
                                          "QUANTUM-MAP"
                                          "PHYSICAL-CLUSTER-DATA"
                                          "VIRTUAL-MEMORY"
                                          "PAGING-DEVICES"
                                          "DATATYPE-RAM"
                                          "GC-RAM"
                                          "MAP"
                                          "TIMERS"
                                          "VINCULUM"
                                          "GLOBAL-REGISTERS"
                                          "PRIMITIVES"
                                          "NC"
                                          "NETWORK-USER"
                                          "SDU"
                                          "S-TERMINAL"
                                          "KERMIT"
                                          "TOPS20"
                                          "ANSI"
                                          "TM"
                                          "TFRAME"
                                          "SPELL"
                                          "LAMBDA"
                                          "TELNET"
                                          "FTP"
                                          "TCP-APPLICATION"
                                          "TCP"
                                          "UDP"
                                          "ICMP"
                                          "INTERNET"
                                          "ARP"
                                          "QUOTE"
                                          "CADR"
                                          "UNIX"
                                          "SRCCOM"
                                          "HACKS"
                                          "MATH"
                                          "MICRO-ASSEMBLER"
                                          "ZWEI"
                                          "FORMAT"
                                          "PRESS"
                                          "SUPDUP"
                                          "TIME"
                                          "FED"
                                          "EH"
                                          "TV"
                                          "METER"
                                          "QFASL-REL"
                                          "TAPE"
                                          "FILE-SYSTEM"
                                          "COLOR"
                                          "NETWORK"
                                          "ETHERNET"
                                          "CHAOS"
                                          "GARBAGE-COLLECTOR"
                                          "USER"
                                          "COMPILER"
                                          "SYSTEM-INTERNALS"
                                          "LISP"
                                          "SYSTEM"
                                          "GLOBAL")
                                   ))
 (("&AUX")
  ((K-NUBUS-STUFF::&AUX "K-NUBUS-STUFF") (&AUX "TAG"
                                               "K-DIAG"
                                               "K-USER"
                                               "K-FASDUMP"
                                               "K-COLD"
                                               "K-SETF"
                                               "K-KBUG"
                                               "K-GLOBAL"
                                               "FASDUMP"
                                               "SYMBOL"
                                               "K2"
                                               "KBUG-STREAMS"
                                               "COLD"
                                               "NUBUS-STUFF"
                                               "K-DEBUG"
                                               "SETF"
                                               "NLISP"
                                               "LISP-INTERNALS"
                                               "KBUG"
                                               "TRAP"
                                               "ARRAY"
                                               "NEW-MATH"
                                               "CONS"
                                               "TRANSPORTER-RAM"
                                               "BOOT"
                                               "MEMORY-MANAGEMENT-INTERFACE"
                                               "AREA-DATA"
                                               "REGION-DATA"
                                               "GC-FAULT"
                                               "MAP-FAULT"
                                               "REGION-BITS"
                                               "MEMORY-MANAGEMENT"
                                               "QUANTUM-MAP"
                                               "PHYSICAL-CLUSTER-DATA"
                                               "VIRTUAL-MEMORY"
                                               "PAGING-DEVICES"
                                               "DATATYPE-RAM"
                                               "GC-RAM"
                                               "MAP"
                                               "TIMERS"
                                               "VINCULUM"
                                               "GLOBAL-REGISTERS"
                                               "PRIMITIVES"
                                               "NC"
                                               "NETWORK-USER"
                                               "SDU"
                                               "S-TERMINAL"
                                               "KERMIT"
                                               "TOPS20"
                                               "ANSI"
                                               "TM"
                                               "TFRAME"
                                               "SPELL"
                                               "LAMBDA"
                                               "TELNET"
                                               "FTP"
                                               "TCP-APPLICATION"
                                               "TCP"
                                               "UDP"
                                               "ICMP"
                                               "INTERNET"
                                               "ARP"
                                               "QUOTE"
                                               "CADR"
                                               "UNIX"
                                               "SRCCOM"
                                               "HACKS"
                                               "MATH"
                                               "MICRO-ASSEMBLER"
                                               "ZWEI"
                                               "FORMAT"
                                               "PRESS"
                                               "SUPDUP"
                                               "TIME"
                                               "FED"
                                               "EH"
                                               "TV"
                                               "METER"
                                               "QFASL-REL"
                                               "TAPE"
                                               "FILE-SYSTEM"
                                               "COLOR"
                                               "NETWORK"
                                               "ETHERNET"
                                               "CHAOS"
                                               "GARBAGE-COLLECTOR"
                                               "USER"
                                               "COMPILER"
                                               "SYSTEM-INTERNALS"
                                               "LISP"
                                               "SYSTEM"
                                               "GLOBAL")))
 (("&BODY" "&KEY") ((&KEY "TAG"
                          "K-DIAG"
                          "K-USER"
                          "K-FASDUMP"
                          "K-COLD"
                          "K-SETF"
                          "K-KBUG"
                          "K-GLOBAL"
                          "FASDUMP"
                          "SYMBOL"
                          "K2"
                          "KBUG-STREAMS"
                          "COLD"
                          "NUBUS-STUFF"
                          "K-DEBUG"
                          "SETF"
                          "NLISP"
                          "LISP-INTERNALS"
                          "KBUG"
                          "TRAP"
                          "ARRAY"
                          "NEW-MATH"
                          "CONS"
                          "TRANSPORTER-RAM"
                          "BOOT"
                          "MEMORY-MANAGEMENT-INTERFACE"
                          "AREA-DATA"
                          "REGION-DATA"
                          "GC-FAULT"
                          "MAP-FAULT"
                          "REGION-BITS"
                          "MEMORY-MANAGEMENT"
                          "QUANTUM-MAP"
                          "PHYSICAL-CLUSTER-DATA"
                          "VIRTUAL-MEMORY"
                          "PAGING-DEVICES"
                          "DATATYPE-RAM"
                          "GC-RAM"
                          "MAP"
                          "TIMERS"
                          "VINCULUM"
                          "GLOBAL-REGISTERS"
                          "PRIMITIVES"
                          "NC"
                          "NETWORK-USER"
                          "SDU"
                          "S-TERMINAL"
                          "KERMIT"
                          "TOPS20"
                          "ANSI"
                          "TM"
                          "TFRAME"
                          "SPELL"
                          "LAMBDA"
                          "TELNET"
                          "FTP"
                          "TCP-APPLICATION"
                          "TCP"
                          "UDP"
                          "ICMP"
                          "INTERNET"
                          "ARP"
                          "QUOTE"
                          "CADR"
                          "UNIX"
                          "SRCCOM"
                          "HACKS"
                          "MATH"
                          "MICRO-ASSEMBLER"
                          "ZWEI"
                          "FORMAT"
                          "PRESS"
                          "SUPDUP"
                          "TIME"
                          "FED"
                          "EH"
                          "TV"
                          "METER"
                          "QFASL-REL"
                          "TAPE"
                          "FILE-SYSTEM"
                          "COLOR"
                          "NETWORK"
                          "ETHERNET"
                          "CHAOS"
                          "GARBAGE-COLLECTOR"
                          "USER"
                          "COMPILER"
                          "SYSTEM-INTERNALS"
                          "LISP"
                          "SYSTEM"
                          "GLOBAL")
                    ))
 (("COND" "-"
          "+"
          "VALUES"
          "IMPORT"
          "EXPORT"
          "LAMBDA"
          "FUNCTION"
          "PROGN"
          "IMPORT"
          "EXPORT"
          "T")
  ((:T "KEYWORD") (T "TAG"
                     "K-DIAG"
                     "K-USER"
                     "K-FASDUMP"
                     "K-SYMBOL"
                     "K-K2"
                     "K-KBUG-STREAMS"
                     "K-COLD"
                     "K-NUBUS-STUFF"
                     "K-K-DEBUG"
                     "K-SETF"
                     "K-LISP-INTERNALS"
                     "K-KBUG"
                     "K-TRAP"
                     "K-ARRAY"
                     "K-NEW-MATH"
                     "K-CONS"
                     "K-TRANSPORTER-RAM"
                     "K-BOOT"
                     "K-MEMORY-MANAGEMENT-INTERFACE"
                     "K-AREA-DATA"
                     "K-REGION-DATA"
                     "K-GC-FAULT"
                     "K-MAP-FAULT"
                     "K-REGION-BITS"
                     "K-MEMORY-MANAGEMENT"
                     "K-QUANTUM-MAP"
                     "K-PHYSICAL-CLUSTER-DATA"
                     "K-VIRTUAL-MEMORY"
                     "K-PAGING-DEVICES"
                     "K-DATATYPE-RAM"
                     "K-GC-RAM"
                     "K-MAP"
                     "K-TIMERS"
                     "K-VINCULUM"
                     "K-GLOBAL-REGISTERS"
                     "K-PRIMITIVES"
                     "K-GLOBAL"
                     "FASDUMP"
                     "SYMBOL"
                     "K2"
                     "KBUG-STREAMS"
                     "COLD"
                     "NUBUS-STUFF"
                     "K-DEBUG"
                     "SETF"
                     "NLISP"
                     "LISP-INTERNALS"
                     "KBUG"
                     "TRAP"
                     "ARRAY"
                     "NEW-MATH"
                     "CONS"
                     "TRANSPORTER-RAM"
                     "BOOT"
                     "MEMORY-MANAGEMENT-INTERFACE"
                     "AREA-DATA"
                     "REGION-DATA"
                     "GC-FAULT"
                     "MAP-FAULT"
                     "REGION-BITS"
                     "MEMORY-MANAGEMENT"
                     "QUANTUM-MAP"
                     "PHYSICAL-CLUSTER-DATA"
                     "VIRTUAL-MEMORY"
                     "PAGING-DEVICES"
                     "DATATYPE-RAM"
                     "GC-RAM"
                     "MAP"
                     "TIMERS"
                     "VINCULUM"
                     "GLOBAL-REGISTERS"
                     "PRIMITIVES"
                     "NC"
                     "NETWORK-USER"
                     "SDU"
                     "S-TERMINAL"
                     "KERMIT"
                     "TOPS20"
                     "ANSI"
                     "TM"
                     "TFRAME"
                     "SPELL"
                     "LAMBDA"
                     "TELNET"
                     "FTP"
                     "TCP-APPLICATION"
                     "TCP"
                     "UDP"
                     "ICMP"
                     "INTERNET"
                     "ARP"
                     "QUOTE"
                     "CADR"
                     "UNIX"
                     "SRCCOM"
                     "HACKS"
                     "MATH"
                     "MICRO-ASSEMBLER"
                     "ZWEI"
                     "FORMAT"
                     "PRESS"
                     "SUPDUP"
                     "TIME"
                     "FED"
                     "EH"
                     "TV"
                     "METER"
                     "QFASL-REL"
                     "TAPE"
                     "FILE-SYSTEM"
                     "COLOR"
                     "NETWORK"
                     "ETHERNET"
                     "CHAOS"
                     "GARBAGE-COLLECTOR"
                     "USER"
                     "COMPILER"
                     "SYSTEM-INTERNALS"
                     "LISP"
                     "SYSTEM"
                     "GLOBAL")))
 (("NIL") ((:NIL "KEYWORD"))))