LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760031404. :SYSTEM-TYPE :LOGICAL :VERSION 3. :TYPE "LISP" :NAME "ENVIRONMENT-INQUIRIES" :DIRECTORY ("REL3-SOURCE" "KERNEL") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-SOURCE\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2758639412. :AUTHOR "REL3" :LENGTH-IN-BYTES 2351. :LENGTH-IN-BLOCKS 3. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ;; Common Lisp Random additions -*- Mode:Common-Lisp; Package:SYSTEM-INTERNALS; Base:10 -*-;;;                           RESTRICTED RIGHTS LEGEND;;;Use, duplication, or disclosure by the Government is subject to;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in;;;Technical Data and Computer Software clause at 52.227-7013.;;;                     TEXAS INSTRUMENTS INCORPORATED.;;;                              P.O. BOX 2909;;;                           AUSTIN, TEXAS 78769;;;                                 MS 2151;;; Copyright (C) 1985,1987 Texas Instruments Incorporated. All rights reserved.;;Section 24.5.2 Other environment inquiries (defun lisp-implementation-type ()  "Return the generic name of this Common Lisp implementation."  "TI Common Lisp")(defun lisp-implementation-version ()  "Return a string that identifies the version of this particular implementation of Lisp."  (with-output-to-string (version)    (do ((sys patch-systems-list (cdr sys)))((null sys))      (let ((system (car sys)))(format version "~A ~D.~D"(patch-name system)(patch-version system)(version-number (first (patch-version-list system)))))      (write-string ", "  version ))    (format version "Microcode ~D" %microcode-version-number )))(deff software-version 'lisp-implementation-version)(defun machine-type ()  "Return the generic name for the hardware that we are running on, as a string."  "Explorer")(defun machine-version ()  "Return a string that identifies which hardware and special microcode we are using."  (format nil "~A, Microcode ~D" (machine-type) %microcode-version-number))(defun machine-instance ()  "Return a string that identifies which particular machine this implementation is."  (send local-host :name))(defun software-type ()  "Return the generic name of the host software, as a string."  "TI Common Lisp")(defun short-site-name ()  "Return the abbreviated name for this site as a string."  (or (get-site-option :short-site-name)      site-name))(defun long-site-name ()  "Return the long name for this site as a string."  (or (get-site-option :long-site-name)      site-name));;PAD 3/10/87 Added user-name for the next edition of Steele.(defun user-name ()  (if (and (stringp user-id) (not (zerop (length user-id ))))      user-id      ()))s.;All possible encapsulation types have a total order and a new;encapsulation is put in the right place in the order.;Here is the order (innermost to outermost).;Any encapsulation type which anybody wants to use must be in this list.;No knowledge of the ordering appears anywhere but in this variable.(defparameter encapsulation-standard-order '(advise breakon trace rename-within)) ;To find the right place in the ordering to insert a new encapsulation,;it is necessary to parse existing ones.  This is done with the function;UNENCAPSULATE-FUNCTION-SPEC.  It takes a function spec as an argument;and returns another function spec.  It may return the same one.;However, if the arg is defined and its definit