;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for CDI version 1.10
;;; Reason:
;;;  Make shared device objects printable on Explorers.
;;; Written 19-Jun-86 17:03:44 by ELLEN at site CDI Dallas
;;; while running on EXPLORER-1 from band 1
;;; with System 110.232, Lambda-Diag 7.17, Experimental Local-File 68.7, FILE-Server 18.4, Unix-Interface 9.1, ZMail 65.14, Object Lisp 3.4, Tape 6.39, Site Data Editor 3.3, Tiger 24.0, KERMIT 31.3, Window-Maker 1.1, Gateway 4.8, TCP-Kernel 39.7, TCP-User 62.7, TCP-Server 45.5, MEDIUM-RESOLUTION-COLOR 3.4, MICRO-COMPILATION-TOOLS 3.2, System Revision Level 3.26, Experimental CDI 1.9, microcode 1525, CDI LambdaE base.



; From modified file S2: >Lambda-3>SYS>SHARED-DEVICE.LISP.47 at 19-Jun-86 17:03:45
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: sys; shared-device lisp "

(defmethod (basic-shared-device :print-self) (stream print-depth slashify-p)
  print-depth
  (cond ((null slashify-p)
	 (send stream :string-out name))
	(t
	 (format stream "#~s ~s ~s"
		 (type-of self)
		 name
		 (if (sys-conf-structure-available-p)
		     (selectq (send self :owner)
		       (:not-on-bus "not on bus")
		       (nil "free")
		       (t (format nil "allocated by slot ~d." (send self :owner))))
		   "Not accessible")))))

))