[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: unreproducible CNAMEF/OPEN interaction



:lisp

LISP 2100
Alloc? n

*
(setq f (open "nul:"))
#FILE-IN-|NUL:* *|-70776

(close f)
T

(cnamef f "dsk:luser;foo bar")
#FILE-IN-|DSK:LUSER;FOO BAR|-70776

f 
#FILE-IN-|DSK:LUSER;FOO BAR|-70776

(open f '(dsk in fixnum))
;(OPEN #FILE-IN-|* *|-70776 (DSK IN FIXNUM)) NON-EXISTENT DIRECTORY

;BKPT IO-LOSSAGE
f
#FILE-IN-|* *|-70776

(cnamef f "dsk:luser;foo bar")
#FILE-IN-|DSK:LUSER;FOO BAR|-70776

f
#FILE-IN-|DSK:LUSER;FOO BAR|-70776
(open f '(dsk in ascii))
;(OPEN #FILE-IN-|* *|-70776 (DSK IN ASCII)) NON-EXISTENT DIRECTORY

f
#FILE-IN-|* *|-70776

(quit)
:KILL