LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760032835. :SYSTEM-TYPE :LOGICAL :VERSION 1. :TYPE "LISP" :NAME "GOLD-LOW" :DIRECTORY ("REL3-PUBLIC" "PUBLIC" "PCL") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-PUBLIC\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2756388135. :AUTHOR "REL3" :LENGTH-IN-BYTES 1967. :LENGTH-IN-BLOCKS 2. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ;;;-*-Mode:LISP; Package:(PCL Lisp 1000); Base:10; Syntax:Common-lisp -*-;;;;;; *************************************************************************;;; Copyright (c) 1985, 1986, 1987 Xerox Corporation.  All rights reserved.;;;;;; Use and copying of this software and preparation of derivative works;;; based upon this software are permitted.  Any distribution of this;;; software or derivative works must comply with all applicable United;;; States export control laws.;;; ;;; This software is made available AS IS, and Xerox Corporation makes no;;; warranty about the software, its performance or its conformity to any;;; specification.;;; ;;; Any person obtaining a copy of this software is requested to send their;;; name and post office or electronic mail address to:;;;   CommonLoops Coordinator;;;   Xerox Artifical Intelligence Systems;;;   2400 Hanover St.;;;   Palo Alto, CA 94303;;; (or send Arpanet mail to CommonLoops-Coordinator.pa@Xerox.arpa);;;;;; Suggestions, comments and requests for improvements are also welcome.;;; *************************************************************************;;;(in-package 'pcl)  ;;   ;;;;;; Generating CACHE numbers  ;;(defmacro symbol-cache-no (symbol mask)  `(logand (sys::%pointer ,symbol) ,mask))(defmacro object-cache-no (object mask)  `(logand (sys::%pointer ,object) ,mask))  ;;   ;;;;;; printing-random-thing  ;;;;; Similar to printing-random-object in the lisp machine but much simpler(defmacro printing-random-thing ((thing stream) &body body)  (multiple-value-bind (baseaddr offaddr) (sys:%pointer thing)    `(progn (princ "#<" ,stream)            ,@body    (princ (concat " " ,baseaddr " " ,offaddr) ,stream)    (princ ">" ,stream)    )));;;; This allows the compiler to compile a file wth many "DEFMETHODS";;;; or "DEFMETHS" in succession.(setf (get 'defmethod 'gcl::compile-separately) t)(setf (get 'defmeth 'gcl::compile-separately) t)lable instancesis easy to write.  Unfortunately, this implementation adds signif