[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
System Loading from Unix File Server
I am trying to load an SCT system from a Unix file server. I run into a
problem on trying to load the sysdcl.lisp file as indicated in the following
trace. I include the aaitt-mcm.system and aaitt.translations files FYI.
****************************************************************************
Command: Load System (a system [default Metering]) aaitt-mcm
AAITT-MCM is unknown; looking for MOTHRA:>sys>site>aaitt-mcm.system.newest... reading... read.
D,#TD1Ps T[Begin using 006 escapes](1 0 (NIL 0) (:FIX :BOLD :NORMAL) "CPTFONTCB")Error: Unable to find the file AAITT:AAITT;SYSDCL-MCM.LISP.NEWEST
SI:OPEN-FILE-SEARCH-INTERNAL
0 Arg 0 (SI:OPERATION): ZL:LOAD
Arg 1 (SI:DEFAULTS): ((# . #) (# . #) (# . #) (# . #) (NIL . #))
Arg 2 (SI:AUTO-RETRY): NIL
Arg 3 (SI:TYPE-LIST-FUNCTION): #<Compiled function FS:LOAD-TYPE-LIST 20031177016>
Arg 4 (SI:PATHNAME): #P"AAITT:AAITT;SYSDCL-MCM.LISP.NEWEST"
Arg 5 (SI:TYPE-LIST-ARGS): (T)
Arg 6 (SI:OPEN-OPTIONS): (:ELEMENT-TYPE :DEFAULT :IF-DOES-NOT-EXIST :ERROR)
Arg 7 (SI:PATHNAME-CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL FS:LOAD-OPEN 0) 36600470534>
s-A, : Supply a different pathname
s-B: Retry loading AAITT:AAITT;SYSDCL-MCM.LISP.NEWEST
s-C: Skip loading AAITT:AAITT;SYSDCL-MCM.LISP.NEWEST
s-D, : Return to Lisp Top Level in Dynamic Lisp Listener 2
s-E: Restart process Dynamic Lisp Listener 2
(DESCRIBE #P"AAITT:AAITT;SYSDCL-MCM.LISP.NEWEST")
#P"AAITT:AAITT;SYSDCL-MCM.LISP.NEWEST", an object of flavor FS:LOGICAL-PATHNAME,
has instance variable values:
FLAVOR:PROPERTY-LIST: NIL
FS:HOST: #<FS:LOGICAL-HOST AAITT>
FS:DEVICE: :UNSPECIFIC
FS:DIRECTORY: ("AAITT")
FS:NAME: "SYSDCL-MCM"
FS:TYPE: "LISP"
FS:VERSION: :NEWEST
FS:VC-BRANCH: NIL
FS:VC-VERSION: NIL
FS:STRING-FOR-PRINTING: "AAITT:AAITT;SYSDCL-MCM.LISP.NEWEST"
FS:VC-STRING-FOR-PRINTING: "AAITT:AAITT;SYSDCL-MCM.LISP.NEWEST"
FS:TRANSLATED-PATHNAME: #P"ALBERT:/home02.sct/aaitt/sysdcl-mcm..lisp"
FS:TRANSLATION-TICK: 3
#P"AAITT:AAITT;SYSDCL-MCM.LISP.NEWEST"
Abort(2 0 (NIL 0) (:FIX :ITALIC :NORMAL) "CPTFONTI") Abort
Return to Lisp Top Level in Dynamic Lisp Listener 2
0Back to Lisp Top Level in Dynamic Lisp Listener 2.
Command: Show File (file [default SYS:SITE;AAITT-*.SYSTEM.NEWEST]) SYS:SITE;AAITT-MCM.SYSTEM.NEWEST
*** SYS:SITE;AAITT-MCM.SYSTEM.NEWEST ***
*** (MOTHRA:>sys>site>aaitt-mcm.system.1) ***
;;; -*- Mode: LISP; Syntax: Common-lisp; Package: USER; Base: 10 -*-
;;;
;;; SYS:SITE;AAITT-MCM.SYSTEM
;;;
;;; COPYRIGHT (c) 1991 BY CIMFLEX TEKNOWLEDGE -- ALL RIGHTS RESERVED
;;;
;;; This program contains proprietary information of Cimflex Teknowledge and its
;;; receipt or possession does not convey any rights to reproduce, disclose its contents, or
;;; to manufacture, use, or sell anything it may describe. Reproduction, disclosure, or use
;;; without specific written authorization of Cimflex Teknowledge is strictly
;;; forbidden.
;;;
;;; This is the system declaration file for AAITT, the Advanced AI Technology Testbed.
(unless (fs:get-pathname-host "AAITT" :no-error :no-add)
(fs:make-logical-pathname-host "AAITT"))
(si:set-system-source-file "AAITT-MCM" "aaitt:aaitt;sysdcl-mcm")
Command: Show File (file [default SYS:SITE;AAITT-MCM.SYSTEM.NEWEST]) SYS:SITE;AAITT.TRANSLATIONS.NEWEST
*** SYS:SITE;AAITT.TRANSLATIONS.NEWEST ***
*** (MOTHRA:>sys>site>aaitt.translations.32) ***
;;; -*- Mode: LISP -*-
;; Changed by Steve Jameson to point directly to albert rather than
;; through goober to albert to avoid file linking problems. All
;; references to goober:/proj/aaitt were changed to
;; albert:/home02.sct/sjameson.
;;; define logical host ABE
(fs:set-logical-pathname-host
"AAITT"
:translations '(
("aaitt:cronus;" "albert:/home02.sct/sjameson/aaitt/cronus/")
("aaitt:cronus;*;" "albert:/home02.sct/sjameson/aaitt/cronus/*/")
("aaitt:cronus;*;*;" "albert:/home02.sct/sjameson/aaitt/cronus/*/*/")
;;; ("aaitt:cronus;**;" "albert:/leroy/cronus/**/")
("aaitt:logs;" "albert:/home02.sct/sjameson/aaitt/logs/")
;;; ("aaitt:logs;" "albert:/leroy/logs/")
("aaitt:templates;" "albert:/home02.sct/sjameson/aaitt/templates/")
;;; ("aaitt:templates;**;" "albert:/leroy/templates/**/")
("aaitt:templates;*;" "albert:/home02.sct/sjameson/aaitt/templates/*/")
("aaitt:templates;*;*;" "albert:/home02.sct/sjameson/aaitt/templates/*/*/")
("aaitt:applications;" "albert:/home02.sct/sjameson/aaitt/applications/")
;;; ("aaitt:applications;**;" "albert:/leroy/applications/**/")
("aaitt:applications;*;" "albert:/home02.sct/sjameson/aaitt/applications/*/")
("aaitt:applications;*;*;" "albert:/home02.sct/sjameson/aaitt/applications/*/*/")
("aaitt:cronus_root;" "goober:/home/cronus_2.0/goober/")
("aaitt:aaitt_root;" "albert:/home02.sct/sjameson/aaitt/")
("aaitt:aaitt;*.*.*" "albert:/home02.sct/aaitt/*.*.*")
("aaitt:**;*.*.*" "albert:/home02.sct/aaitt/**/*.*.*")
))
(setq user::*CRONUS-HOST* "goober")
(setq user::*CRONUS_ROOT* "/home/cronus_2.0/goober")
(setq user::*AAITT_ROOT* "/proj/aaitt/aaitt")
;;(setq user::*AAITT_ROOT* "/home02.sct/sjameson/aaitt")
;;;(fs:set-default-pathname
;;; (send (send (pathname "aaitt:logs;readme..") :translated-pathname) :new-type :null-type))
****************************************************************************
The problem appears to be that the logical pathname:
"AAITT:AAITT;SYSDCL-MCM.LISP.NEWEST"
is translated into the Unix pathname:
"ALBERT:/home02.sct/aaitt/sysdcl-mcm..lisp"
when I want it to be:
"ALBERT:/home02.sct/aaitt/sysdcl-mcm.lisp"
This is born out by the following trace:
****************************************************************************
Command: Show File AAITT:AAITT;SYSDCL-MCM.LISP
No such file or directory
For ALBERT:/home02.sct/aaitt/sysdcl-mcm..lisp.~1~
****************************************************************************
Any clue as to why this is happening and what I can do to prevent it?
Steve Jameson General Electric Aerospace
sjameson@atl.ge.com Advanced Technology Laboratories
Moorestown, New Jersey
****************************************************************************
** . . . but I do not love the sword for its sharpness, nor the arrow **
** for its swiftness, nor the warrior for his glory. I love only that **
** which they defend . . . **
** -- Faramir, "The Two Towers" **
****************************************************************************