LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760032863. :SYSTEM-TYPE :LOGICAL :VERSION 1. :TYPE "LISP" :NAME "VAXL-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 2756388254. :AUTHOR "REL3" :LENGTH-IN-BYTES 2258. :LENGTH-IN-BLOCKS 3. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ;;; -*- Mode: LISP; Syntax: Common-lisp; Package: (PCL Lisp 1000); Base: 10. -*-;;;;;; *******************************************************************************;;; Copyright (c) 1985 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.;;; *******************************************************************************;;;;;; The version of low for VAXLisp(in-package 'pcl)  ;;   ;;;;;; Load Time Eval  ;;(defmacro load-time-eval (form)  `(progn ,form))  ;;   ;;;;;; Generating CACHE numbers  ;;;;; How are symbols in VAXLisp actually arranged in memory?;;; Should we be shifting the address?;;; Are they relocated?;;; etc.(defmacro symbol-cache-no (symbol mask)  `(logand (the fixnum (system::%sp-pointer->fixnum ,symbol)) ,mask))(defmacro object-cache-no (object mask)  `(logand (the fixnum (system::%sp-pointer->fixnum ,object)) ,mask))  ;;   ;;;;;; printing-random-thing-internal  ;;(defun printing-random-thing-internal (thing stream)  (format stream "~O" (system::%sp-pointer->fixnum thing)))(defun function-arglist (fn)  (system::function-lambda-vars (symbol-function fn)))(defun set-function-name (fn name)  (when (listp name)    (cond ((eq (car name) 'method)   (setq name (intern (format nil "~S" name)      (symbol-package (cadr name)))))   (t     (setq name (intern (format nil "~S" name))))))    (cond ((system::slisp-compiled-function-p fn) (system::%sp-b-store fn 3 name))))ALUE FORM)    ;; Else, get global target value.   (SYMEVAL-FOR-TARGET FORM)   ))))))((ATOM FORM) FORM)((AND (EQ (FIRST FORM) 'QUOTE) (= (LENGTH FORM) 2)) (SECOND FORM))((AND (EQ TARGET-PROCESSOR HOST-PROCESSOR)      (NULL FILE-CONSTANTS-LIST)      (NULL FILE-LOCAL-DECLARATIONS)) ;; no need for any special handling. (SI:EVAL1 FORM))((OR (AND (NEQ TARGET-PROCESSOR HOST-PROCESSOR)  (MEMBER (FIRST FORM)  '(SI::ENCAPSULATION-LET; for ADVISE in LOAD-FOR-TARGET     %MAKE-POINTER; must evaluate data type for host     #-Elroy DEFUN; new DEFUN can't handle old-style property fspecs     MAKE-ARRAY MAKE-SYMBOL-IN-AREA; need to evaluate area number for host     )  :TEST #'EQ))     ) ; in debugger ;; need to evaluate in host environment (SI:EVAL1 