Subject: MCL 2.0.1 on PowerMac with Sys7.5
Date: Tue, 13 Dec 94 15:11:37 EDT
Message-ID: <000C8DE4.fc@rstar.com>
X-FirstClass: 0x59F8 0x000C8DE4 0x000F4663 0x000F4663 0x0000
Newsgroups: comp.lang.lisp.mcl
Path: cantaloupe.srv.cs.cmu.edu!fs7.ece.cmu.edu!europa.eng.gtefsd.com!howland.reston.ans.net!news.moneng.mei.com!uwm.edu!lll-winken.llnl.gov!enews.sgi.com!decwrl!netcomsv!rstar.com!chuey
From: chuey@rstar.com (Paulus Chu)
Organization: RSTAR
X-HoloGate: 1.1b71
Lines: 31

Can anyone change the volume name of a disk in MCL under system 7.5?

I have a function works fine on Quadra800 with system 7.1.1.
(defun change-volume-name (from-path to-path)
  (ccl::%stack-iopb (pb np)
    (ccl::%put-volume-name np from-path)
    (%put-word pb (if (ccl::%izerop (%get-byte np)) 0 -1) $ioVolIndex)
    (%put-word pb 0 $ioVRefNum)
    (ccl::file-errchk (#_HGetVInfo pb) from-path)
    (ccl::%put-volume-name np to-path)
    (ccl::file-errchk (#_SetVInfo pb) to-path)))

On PowerMac 8100 with system 7.5, the symptom is:
?  ;;; try to rename an optical disk from "old-vol" to "new-vol"
? (probe-file "old-vol:")
#P"old-vol:"
? (probe-file "new-vol:")
NIL
? (change-volume-name "old-vol:" "new-vol:")
NIL
? (probe-file "old-vol:")
NIL
? (probe-file "new-vol:")
#P"old-vol:"
? 

Seems like it create an alias within MCL rather than actually changing the
volume name...
Any clue!?

- Chuey -
