Present in both: DVI.LISP       #22
;Source Compare of File IT: GJC.DVI; DVI.LISP#22 and File EXP1: GJC.DVI; DVI.LISP#22 on 14-Dec-87 13:13:07 -*-Fundamental-*-
Present in both: DVI.LISP       #23
;Source Compare of File IT: GJC.DVI; DVI.LISP#23 and File EXP1: GJC.DVI; DVI.LISP#23 on 14-Dec-87 13:13:14 -*-Fundamental-*-
******** 20 lines matched.
**** File IT: GJC.DVI; DVI.LISP#23, Line #20, After "(defconstant eop 140)"
(defconstant dvi-push 141)
(defconstant dvi-pop 142)
(defconstant right1 143)
**** File EXP1: GJC.DVI; DVI.LISP#23, Line #20, After "(defconstant eop 140)"
(defconstant push 141)
(defconstant pop 142)
(defconstant right1 143)
***************

******** 544 lines matched.
**** File IT: GJC.DVI; DVI.LISP#23, Line #567, After "(defun get-parameters (op"
	((memaq opcode nop dvi-push dvi-pop w0 x0 y0 z0 eop) ())
	((memaq opcode right1 w1 x1 down1 y1 z1)
**** File EXP1: GJC.DVI; DVI.LISP#23, Line #567, After "(defun get-parameters (op"
	((memaq opcode nop push pop w0 x0 y0 z0 eop) ())
	((memaq opcode right1 w1 x1 down1 y1 z1)
***************

******** 180 lines matched.
**** File IT: GJC.DVI; DVI.LISP#23, Line #749, After "(defun run-dvi (inpathnam"
		 (start-output doc)		; maybe output font definitions 
		 (do-pages doc)
**** File EXP1: GJC.DVI; DVI.LISP#23, Line #749, After "(defun run-dvi (inpathnam"
		 (start-output doc)		; maybe output font definitions
		 (describe-settings doc)
		 (do-pages doc)
***************

******** 7 lines matched.
**** File IT: GJC.DVI; DVI.LISP#23, Line #758, After "(defun run-dvi (inpathnam"
(defun initialize-translation-array ()
**** File EXP1: GJC.DVI; DVI.LISP#23, Line #759, After "(defun run-dvi (inpathnam"

(defun describe-settings (doc)
  (format t "~&Job ~S for printer ~S with ~D pixels per inch~%"
	  (send doc :job-id) (send doc :printer-name)
	  (send doc :printer-resolution))
  (format t "Available Page Width = ~D pixels, ~S inches~%"
	  pixels-per-line (quotient pixels-per-line (float (send doc :printer-resolution))))

  (format t "Available Page Length = ~D pixels, ~S inches~%"
	  pixels-per-page (quotient pixels-per-page (float (send doc :printer-resolution))))
	  
  (format t "Page-Width = ~D dvi's ~D pixels ~S inches~%"
	  (send doc :PAGE-WIDTH)
	  (pixel-round (send doc :PAGE-WIDTH))
	  (quotient (pixel-round (send doc :PAGE-WIDTH))
		    (float (send doc :PRINTER-RESOLUTION))))

  (format t "Page-Length = ~D dvi's ~D pixels ~S inches~%"
	  (send doc :PAGE-LENGTH)
	  (pixel-round (send doc :PAGE-LENGTH))
	  (quotient (pixel-round (send doc :PAGE-LENGTH))
		    (float (send doc :PRINTER-RESOLUTION))))

  (format t "XPAGE-OFFSET = ~D pixels, ~S inches~%"
	  (send doc :xpage-offset)
	  (quotient (send doc :xpage-offset) (float (send doc :PRINTER-RESOLUTION))))
  (format t "YPAGE-OFFSET = ~D pixels, ~S inches~%"
	  (send doc :Ypage-offset)
	  (quotient (send doc :Ypage-offset) (float (send doc :PRINTER-RESOLUTION)))))


(defun initialize-translation-array ()
***************

******** 9 lines matched.
**** File IT: GJC.DVI; DVI.LISP#23, Line #768, After "(defun initialize-transla"
  (aset :PUSH-STACK translation-array dvi-push)
  (aset :POP-STACK translation-array dvi-pop)
  (loop for i from right1 to right4 do
**** File EXP1: GJC.DVI; DVI.LISP#23, Line #800, After "(defun initialize-transla"
  (aset :PUSH-STACK translation-array push)
  (aset :POP-STACK translation-array pop)
  (loop for i from right1 to right4 do
***************

Present in both: DVI.LISP       #24
;Source Compare of File IT: GJC.DVI; DVI.LISP#24 and File EXP1: GJC.DVI; DVI.LISP#24 on 14-Dec-87 13:13:22 -*-Fundamental-*-
Present in both: DVI.QFASL      #1
Present in both: DVI.QFASL      #23
Present in both: DVI.TEXT       #1
;Source Compare of File IT: GJC.DVI; DVI.TEXT#1 and File EXP1: GJC.DVI; DVI.TEXT#1 on 14-Dec-87 13:13:30 -*-Fundamental-*-
Present in both: DVI.XFASL      #22
Missing from "IT: GJC.DVI;": DVI.XFASL      #23
Missing from "IT: GJC.DVI;": DVI.XFASL      #24
Present in both: DVI-EXPLORER.LISP #4
;Source Compare of File IT: GJC.DVI; DVI-EXPLORER.LISP#4 and File EXP1: GJC.DVI; DVI-EXPLORER.LISP#4 on 14-Dec-87 13:13:32 -*-Fundamental-*-
Present in both: DVI-EXPLORER.QFASL #1
Present in both: DVI-EXPLORER.TEXT #1
;Source Compare of File IT: GJC.DVI; DVI-EXPLORER.TEXT#1 and File EXP1: GJC.DVI; DVI-EXPLORER.TEXT#1 on 14-Dec-87 13:13:34 -*-Fundamental-*-
Present in both: DVI-EXPLORER.XFASL #4
Missing from "EXP1: GJC.DVI;": DVI-HELP.TEXT  #6
Present in both: DVI-IM-METHODS.LISP #33
;Source Compare of File IT: GJC.DVI; DVI-IM-METHODS.LISP#33 and File EXP1: GJC.DVI; DVI-IM-METHODS.LISP#33 on 14-Dec-87 13:13:36 -*-Fundamental-*-
Present in both: DVI-IM-METHODS.LISP #34
;Source Compare of File IT: GJC.DVI; DVI-IM-METHODS.LISP#34 and File EXP1: GJC.DVI; DVI-IM-METHODS.LISP#34 on 14-Dec-87 13:13:42 -*-Fundamental-*-
Missing from "IT: GJC.DVI;": DVI-IM-METHODS.LISP #35
Present in both: DVI-IM-METHODS.QFASL #1
Missing from "IT: GJC.DVI;": DVI-IM-METHODS.QFASL #35
Present in both: DVI-IM-METHODS.TEXT #1
;Source Compare of File IT: GJC.DVI; DVI-IM-METHODS.TEXT#1 and File EXP1: GJC.DVI; DVI-IM-METHODS.TEXT#1 on 14-Dec-87 13:13:48 -*-Fundamental-*-
Present in both: DVI-IM-METHODS.XFASL #34
Missing from "IT: GJC.DVI;": DVI-IM-METHODS.XFASL #34
Missing from "IT: GJC.DVI;": DVI-IM-METHODS.XFASL #35
Present in both: DVI-MACROS.LISP #9
;Source Compare of File IT: GJC.DVI; DVI-MACROS.LISP#9 and File EXP1: GJC.DVI; DVI-MACROS.LISP#9 on 14-Dec-87 13:13:52 -*-Fundamental-*-
Present in both: DVI-MACROS.QFASL #1
Present in both: DVI-MACROS.TEXT #1
;Source Compare of File IT: GJC.DVI; DVI-MACROS.TEXT#1 and File EXP1: GJC.DVI; DVI-MACROS.TEXT#1 on 14-Dec-87 13:13:55 -*-Fundamental-*-
Present in both: DVI-MACROS.XFASL #9
Present in both: DVI-USER.LISP  #1
;Source Compare of File IT: GJC.DVI; DVI-USER.LISP#1 and File EXP1: GJC.DVI; DVI-USER.LISP#5 on 14-Dec-87 13:13:57 -*-Fundamental-*-
******** 47 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#1, Line #47, After "(defparameter *default-im"

**** File EXP1: GJC.DVI; DVI-USER.LISP#5, Line #47, After "(defparameter *default-im"
(defparameter *default-impress-printer* si:*default-bit-array-printer*)

***************

******** 16 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#1, Line #64, After "(defun get-dvi-dvi-doc(pl"
(defun get-dvi-impress-doc(plist)
**** File EXP1: GJC.DVI; DVI-USER.LISP#5, Line #65, After "(defun get-dvi-dvi-doc(pl"
(defun get-dvi-impress-printer(plist)
  "From a particular user's info, provide the spec for their current Impress printer"
  (or (get plist :impress-printer) si:*default-bit-array-printer*))


(defun get-dvi-impress-doc(plist)
***************

******** 12 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#1, Line #77, After "(defun show-dvi-user(&opt"
    (not(null user-plist))))
**** File EXP1: GJC.DVI; DVI-USER.LISP#5, Line #83, After "(defun show-dvi-user(&opt"
    (format t "~%IMPRESS printer is ~s" (or(get-dvi-impress-printer user-plist) "not set."))
    (format t "~%IMPRESS pages will ~:[not ~]be centered on the paper." (get user-plist :center))
    (not(null user-plist))))
***************

******** 28 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#1, Line #106, After "(defun set-dvi-user(&opti"
			     "~%Current document name (default is ~a) :"
			     default-doc)
**** File EXP1: GJC.DVI; DVI-USER.LISP#5, Line #114, After "(defun set-dvi-user(&opti"
			     "~%>> Current document name~& (press ~\lozenged-character\ for default, ~a) : "
			     #\space
			     default-doc)
***************

******** 3 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#1, Line #111, After "(defun set-dvi-user(&opti"
		      "~%Current DVI working directory (default is ~s) :"
		      default-dvi-home))
	  (impress-home (prompt-and-read
			  `(:pathname :defaults ,default-impress-home)
			  "~%Current IMPRESS working directory (default is ~a) :"
			  default-impress-home))
	  )
**** File EXP1: GJC.DVI; DVI-USER.LISP#5, Line #120, After "(defun set-dvi-user(&opti"
		      "~%>> Current DVI working directory~& (press ~\lozenged-character\ for default, ~s) :"
		      #\return
		      default-dvi-home))
	  (impress-home (prompt-and-read
			  `(:pathname :defaults ,default-impress-home)
			  "~%>> Current IMPRESS working directory~& (press ~\lozenged-character\ for default, ~a) : "
			  #\return
			  default-impress-home))
	  (impress-printer (prompt-and-read
			     `(:eval-read-or-end :default ,(get-dvi-impress-printer default-user-plist))
			     "~%>> IMPRESS printer specification~& (press ~\lozenged-character\ for default, ~s) : "
			     #\space
			     (get-dvi-impress-printer default-user-plist)))
	  (center (y-or-n-p "Center text on page?"))
	  )
***************

******** 4 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#1, Line #122, After "(defun set-dvi-user(&opti"
      (let((*dvi-user-alist* (ncons default-user-plist)))
**** File EXP1: GJC.DVI; DVI-USER.LISP#5, Line #139, After "(defun set-dvi-user(&opti"
      (setf (get default-user-plist :impress-printer) impress-printer)
      (setf (get default-user-plist :center) center)
      (let((*dvi-user-alist* (ncons default-user-plist)))
***************

******** 15 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#1, Line #138, After "(defun dvi-user(&optional"
	(output (get-dvi-impress-doc user-plist)))
    (and (or input (format t "~%??? No DVI document for ~a" user-id))
**** File EXP1: GJC.DVI; DVI-USER.LISP#5, Line #157, After "(defun dvi-user(&optional"
	(output (get-dvi-impress-doc user-plist))
	(impress-printer (get-dvi-impress-printer user-plist))
	(center (get user-plist :center)))
    (and (or input (format t "~%??? No DVI document for ~a" user-id))
***************

******** 6 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#1, Line #146, After "(defun dvi-user(&optional"
			     :defaults output)))
**** File EXP1: GJC.DVI; DVI-USER.LISP#5, Line #167, After "(defun dvi-user(&optional"
			     :version :highest
			     :defaults output)))
***************

******** 8 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#1, Line #155, After "(defun dvi-user(&optional"
	     (or (null (probe-file backup))
		 (yes-or-no-p "The file ~a already exists.~%Are you sure you want to overwrite it ? "))
	     (progn
**** File EXP1: GJC.DVI; DVI-USER.LISP#5, Line #177, After "(defun dvi-user(&optional"
	     (let((probe (probe-file backup)))
	       (or (null probe)
		   (yes-or-no-p "The file ~a exists.~%Are you sure you want to supersede it ? "
				probe)))
	     (progn
***************

******** 6 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#1, Line #164, After "(defun dvi-user(&optional"
				:output-file output))
	   (if printit
	       (hardcopy-file output
			      :format :impress))))))

**** File EXP1: GJC.DVI; DVI-USER.LISP#5, Line #188, After "(defun dvi-user(&optional"
				:output-file output
				:center center))
	   (if printit
	       (hardcopy-file output
			      :format :impress
			      :printer impress-printer))))))

***************

Present in both: DVI-USER.LISP  #2
;Source Compare of File IT: GJC.DVI; DVI-USER.LISP#2 and File EXP1: GJC.DVI; DVI-USER.LISP#6 on 14-Dec-87 13:14:00 -*-Fundamental-*-
******** 54 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#2, Line #54, After "(defun get-dvi-user(&opti"
 (cl:assoc user-id *dvi-user-alist*
	:test #'string-equal))

**** File EXP1: GJC.DVI; DVI-USER.LISP#6, Line #54, After "(defun get-dvi-user(&opti"
  (ass #'string-equal user-id *dvi-user-alist*))

***************

******** 27 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#2, Line #84, After "(defun show-dvi-user(&opt"
    (not(null user-plist))))
**** File EXP1: GJC.DVI; DVI-USER.LISP#6, Line #83, After "(defun show-dvi-user(&opt"
    (format t "~%IMPRESS pages will ~:[not ~]be centered on the paper." (get user-plist :center))
    (not(null user-plist))))
***************

******** 43 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#2, Line #128, After "(defun set-dvi-user(&opti"
			     `(:eval-read-or-end :default ,si:*default-bit-array-printer*)
			     "~%>> IMPRESS printer specification~& (press ~\lozenged-character\ for default, ~s) : "
			     #\space
			     si:*default-bit-array-printer*))
	  )
**** File EXP1: GJC.DVI; DVI-USER.LISP#6, Line #128, After "(defun set-dvi-user(&opti"
			     `(:eval-read-or-end :default ,(get-dvi-impress-printer default-user-plist))
			     "~%>> IMPRESS printer specification~& (press ~\lozenged-character\ for default, ~s) : "
			     #\space
			     (get-dvi-impress-printer default-user-plist)))
	  (center (y-or-n-p "Center text on page?"))
	  )
***************

******** 5 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#2, Line #138, After "(defun set-dvi-user(&opti"
      (let((*dvi-user-alist* (ncons default-user-plist)))
**** File EXP1: GJC.DVI; DVI-USER.LISP#6, Line #139, After "(defun set-dvi-user(&opti"
      (setf (get default-user-plist :center) center)
      (let((*dvi-user-alist* (ncons default-user-plist)))
***************

******** 3 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#2, Line #142, After "(defun set-dvi-user(&opti"
	      (cl:substitute default-user-plist user-id
			     *dvi-user-alist*
			     :key #'car :test #'string-equal))
	(unless (get-dvi-user user-id)
**** File EXP1: GJC.DVI; DVI-USER.LISP#6, Line #144, After "(defun set-dvi-user(&opti"
	      (#+LMI cl:substitute
	       #-LMI substitute
	       default-user-plist user-id
	       *dvi-user-alist*
	       :key #'car :test #'string-equal))
	(unless (get-dvi-user user-id)
***************

******** 9 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#2, Line #155, After "(defun dvi-user(&optional"
	(impress-printer (get-dvi-impress-printer user-plist)))
    (and (or input (format t "~%??? No DVI document for ~a" user-id))
**** File EXP1: GJC.DVI; DVI-USER.LISP#6, Line #159, After "(defun dvi-user(&optional"
	(impress-printer (get-dvi-impress-printer user-plist))
	(center (get user-plist :center)))
    (and (or input (format t "~%??? No DVI document for ~a" user-id))
***************

******** 6 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#2, Line #163, After "(defun dvi-user(&optional"
			     :defaults output)))
**** File EXP1: GJC.DVI; DVI-USER.LISP#6, Line #168, After "(defun dvi-user(&optional"
			     :version :highest
			     :defaults output)))
***************

******** 8 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#2, Line #172, After "(defun dvi-user(&optional"
	     (or (null (probe-file backup))
		 (yes-or-no-p "The file ~a already exists.~%Are you sure you want to overwrite it ? "))
	     (progn
**** File EXP1: GJC.DVI; DVI-USER.LISP#6, Line #178, After "(defun dvi-user(&optional"
	     (let((probe (probe-file backup)))
	       (or (null probe)
		   (yes-or-no-p "The file ~a exists.~%Are you sure you want to supersede it ? "
				probe)))
	     (progn
***************

******** 6 lines matched.
**** File IT: GJC.DVI; DVI-USER.LISP#2, Line #181, After "(defun dvi-user(&optional"
				:output-file output))
	   (if printit
**** File EXP1: GJC.DVI; DVI-USER.LISP#6, Line #189, After "(defun dvi-user(&optional"
				:output-file output
				:center center))
	   (if printit
***************

Missing from "EXP1: GJC.DVI;": DVI-USER.LISP  #3
Missing from "EXP1: GJC.DVI;": DVI-USER.LISP  #4
Missing from "EXP1: GJC.DVI;": DVI-USER.LISP  #5
Present in both: DVI-USER.QFASL #1
Present in both: DVI-USER.QFASL #3
Missing from "EXP1: GJC.DVI;": DVI-USER.QFASL #4
Missing from "EXP1: GJC.DVI;": DVI-USER.QFASL #5
Missing from "IT: GJC.DVI;": DVI-USER.XFASL #5
Missing from "IT: GJC.DVI;": DVI-USER.XFASL #6
Present in both: DVICOM.LISP    #15
;Source Compare of File IT: GJC.DVI; DVICOM.LISP#15 and File EXP1: GJC.DVI; DVICOM.LISP#15 on 14-Dec-87 13:14:04 -*-Fundamental-*-
Missing from "IT: GJC.DVI;": DVICOM.LISP    #16
Missing from "IT: GJC.DVI;": DVICOM.LISP    #17
Missing from "IT: GJC.DVI;": DVICOM.LISP    #18
Missing from "IT: GJC.DVI;": DVICOM.LISP    #19
Present in both: DVICOM.QFASL   #1
Missing from "IT: GJC.DVI;": DVICOM.QFASL   #19
Present in both: DVICOM.TEXT    #1
;Source Compare of File IT: GJC.DVI; DVICOM.TEXT#1 and File EXP1: GJC.DVI; DVICOM.TEXT#1 on 14-Dec-87 13:14:07 -*-Fundamental-*-
Present in both: DVICOM.XFASL   #15
Missing from "IT: GJC.DVI;": DVICOM.XFASL   #17
Missing from "IT: GJC.DVI;": DVICOM.XFASL   #19
Present in both: DVIPRESS-METHODS.LISP #6
;Source Compare of File IT: GJC.DVI; DVIPRESS-METHODS.LISP#6 and File EXP1: GJC.DVI; DVIPRESS-METHODS.LISP#6 on 14-Dec-87 13:14:10 -*-Fundamental-*-
Present in both: DVIPRESS-METHODS.QFASL #1
Present in both: DVIPRESS-METHODS.TEXT #1
;Source Compare of File IT: GJC.DVI; DVIPRESS-METHODS.TEXT#1 and File EXP1: GJC.DVI; DVIPRESS-METHODS.TEXT#1 on 14-Dec-87 13:14:13 -*-Fundamental-*-
Present in both: DVIPRESS-METHODS.XFASL #6
Present in both: DVIPRESS-PRIMS.LISP #3
;Source Compare of File IT: GJC.DVI; DVIPRESS-PRIMS.LISP#3 and File EXP1: GJC.DVI; DVIPRESS-PRIMS.LISP#3 on 14-Dec-87 13:14:17 -*-Fundamental-*-
Present in both: DVIPRESS-PRIMS.QFASL #1
Present in both: DVIPRESS-PRIMS.TEXT #1
;Source Compare of File IT: GJC.DVI; DVIPRESS-PRIMS.TEXT#1 and File EXP1: GJC.DVI; DVIPRESS-PRIMS.TEXT#1 on 14-Dec-87 13:14:23 -*-Fundamental-*-
Present in both: DVIPRESS-PRIMS.XFASL #3
Present in both: IMAGEN.LISP    #2
;Source Compare of File IT: GJC.DVI; IMAGEN.LISP#2 and File EXP1: GJC.DVI; IMAGEN.LISP#2 on 14-Dec-87 13:14:27 -*-Fundamental-*-
Present in both: LMSCREEN-METHODS.LISP #25
;Source Compare of File IT: GJC.DVI; LMSCREEN-METHODS.LISP#25 and File EXP1: GJC.DVI; LMSCREEN-METHODS.LISP#25 on 14-Dec-87 13:14:30 -*-Fundamental-*-
Missing from "IT: GJC.DVI;": LMSCREEN-METHODS.LISP #26
Missing from "IT: GJC.DVI;": LMSCREEN-METHODS.LISP #27
Present in both: LMSCREEN-METHODS.QFASL #1
Missing from "IT: GJC.DVI;": LMSCREEN-METHODS.QFASL #27
Present in both: LMSCREEN-METHODS.TEXT #1
;Source Compare of File IT: GJC.DVI; LMSCREEN-METHODS.TEXT#1 and File EXP1: GJC.DVI; LMSCREEN-METHODS.TEXT#1 on 14-Dec-87 13:14:36 -*-Fundamental-*-
Present in both: LMSCREEN-METHODS.XFASL #25
Missing from "IT: GJC.DVI;": LMSCREEN-METHODS.XFASL #27
Present in both: PRINTERS.LISP  #5
;Source Compare of File IT: GJC.DVI; PRINTERS.LISP#5 and File EXP1: GJC.DVI; PRINTERS.LISP#5 on 14-Dec-87 13:14:40 -*-Fundamental-*-
Present in both: PRINTERS.XFASL #5
Present in both: REL2-FIXES.LISP #1
;Source Compare of File IT: GJC.DVI; REL2-FIXES.LISP#1 and File EXP1: GJC.DVI; REL2-FIXES.LISP#1 on 14-Dec-87 13:14:44 -*-Fundamental-*-
Present in both: SYSDEF.LISP    #16
;Source Compare of File IT: GJC.DVI; SYSDEF.LISP#16 and File EXP1: GJC.DVI; SYSDEF.LISP#16 on 14-Dec-87 13:14:47 -*-Fundamental-*-
Present in both: SYSDEF.LISP    #21
;Source Compare of File IT: GJC.DVI; SYSDEF.LISP#21 and File EXP1: GJC.DVI; SYSDEF.LISP#17 on 14-Dec-87 13:14:50 -*-Fundamental-*-
******** 7 lines matched.
**** File IT: GJC.DVI; SYSDEF.LISP#21, Line #7, After "(defpackage DVI"
(defsystem dvi
  (:pathname-default "exp1:gjc.DVI;")

**** File EXP1: GJC.DVI; SYSDEF.LISP#17, Line #7, After "(defpackage DVI"
#+LMI
(when (= 102 (si:get-system-version))
  (sstatus feature release-2))

(defsystem dvi
  (:name "DVI")
  #+RELEASE-2 (:default-binary-file-type "OFASL")
  #+SYMBOLICS   (:pathname-default "SYS:DVI;")
  #+SYMBOLICS   (:patchable "Sys: DVI; Patches;")
  
  #+LMI         (:pathname-default "exp1:gjcx.DVI;")
  #+(AND LMI (NOT RELEASE-2))         (:patchable "exp1:gjcx.dvi")

***************

Present in both: SYSDEF.LISP    #22
;Source Compare of File IT: GJC.DVI; SYSDEF.LISP#22 and File EXP1: GJC.DVI; SYSDEF.LISP#18 on 14-Dec-87 13:14:53 -*-Fundamental-*-
******** 7 lines matched.
**** File IT: GJC.DVI; SYSDEF.LISP#22, Line #7, After "(defpackage DVI"
(defsystem dvi
  (:pathname-default "it:gjc.DVI;")

**** File EXP1: GJC.DVI; SYSDEF.LISP#18, Line #7, After "(defpackage DVI"
#+LMI
(when (= 102 (si:get-system-version))
  (sstatus feature release-2))

(defsystem dvi
  (:name "DVI")
  #+RELEASE-2 (:default-binary-file-type "OFASL")
  #+SYMBOLICS   (:pathname-default "SYS:DVI;")
  #+SYMBOLICS   (:patchable "Sys: DVI; Patches;")
  
  #+LMI         (:pathname-default "exp1:gjcx.DVI;")
  #+TI          (:pathname-default "exp1:gjcx.DVI;")
  #+(AND LMI (NOT RELEASE-2))         (:patchable "exp1:gjcx.dvi")

***************

Present in both: SYSDEF.LISP    #23
;Source Compare of File IT: GJC.DVI; SYSDEF.LISP#23 and File EXP1: GJC.DVI; SYSDEF.LISP#19 on 14-Dec-87 13:14:55 -*-Fundamental-*-
******** 7 lines matched.
**** File IT: GJC.DVI; SYSDEF.LISP#23, Line #7, After "(defpackage DVI"
(defsystem dvi
  (:pathname-default "it:gjc.DVI;")

**** File EXP1: GJC.DVI; SYSDEF.LISP#19, Line #7, After "(defpackage DVI"
#+LMI
(when (= 102 (si:get-system-version))
  (sstatus feature release-2))

(defsystem dvi
  (:name "DVI")
  #+RELEASE-2 (:default-binary-file-type "OFASL")
  #+SYMBOLICS   (:pathname-default "SYS:DVI;")
  #+SYMBOLICS   (:patchable "Sys: DVI; Patches;")
  
  #+LMI         (:pathname-default "DJ:gjcx.DVI;")
  #+TI          (:pathname-default "exp1:gjc.DVI;")
  #+(AND LMI (NOT RELEASE-2))         (:patchable "exp1:gjcx.dvi")

***************

******** 10 lines matched.
**** File IT: GJC.DVI; SYSDEF.LISP#23, Line #20, After "(defsystem dvi"
  (:module user ("dvi-user"))
  #+TI
**** File EXP1: GJC.DVI; SYSDEF.LISP#19, Line #31, After "(defsystem dvi"
  #+TI
***************

******** 8 lines matched.
**** File IT: GJC.DVI; SYSDEF.LISP#23, Line #30, After "(defsystem dvi"
  (:compile-load toplevel (:fasload main))
  (:compile-load user (:fasload main)))

**** File EXP1: GJC.DVI; SYSDEF.LISP#19, Line #40, After "(defsystem dvi"
  (:compile-load toplevel (:fasload main)))

***************

6 files not found in EXP1: GJC.DVI;: IT: GJC.DVI; DVI-HELP.TEXT#6
IT: GJC.DVI; DVI-USER.LISP#3
IT: GJC.DVI; DVI-USER.LISP#4
IT: GJC.DVI; DVI-USER.LISP#5
IT: GJC.DVI; DVI-USER.QFASL#4
IT: GJC.DVI; DVI-USER.QFASL#5
22 files not found in IT: GJC.DVI;: EXP1: GJC.DVI; DVI.XFASL#23
EXP1: GJC.DVI; DVI.XFASL#24
EXP1: GJC.DVI; DVI-IM-METHODS.LISP#35
EXP1: GJC.DVI; DVI-IM-METHODS.QFASL#35
EXP1: GJC.DVI; DVI-IM-METHODS.XFASL#34
EXP1: GJC.DVI; DVI-IM-METHODS.XFASL#35
EXP1: GJC.DVI; DVI-USER.XFASL#5
EXP1: GJC.DVI; DVI-USER.XFASL#6
EXP1: GJC.DVI; DVICOM.LISP#16
EXP1: GJC.DVI; DVICOM.LISP#17
EXP1: GJC.DVI; DVICOM.LISP#18
EXP1: GJC.DVI; DVICOM.LISP#19
EXP1: GJC.DVI; DVICOM.QFASL#19
EXP1: GJC.DVI; DVICOM.XFASL#17
EXP1: GJC.DVI; DVICOM.XFASL#19
EXP1: GJC.DVI; LMSCREEN-METHODS.LISP#26
EXP1: GJC.DVI; LMSCREEN-METHODS.LISP#27
EXP1: GJC.DVI; LMSCREEN-METHODS.QFASL#27
EXP1: GJC.DVI; LMSCREEN-METHODS.XFASL#27
EXP1: GJC.DVI; SYSDEF.LISP#20
EXP1: GJC.DVI; SYSDEF.LISP#21
EXP1: GJC.DVI; SYSDEF.LISP#22
Done.