Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
588c05ec
Commit
588c05ec
authored
Feb 15, 1992
by
wlott
Browse files
Changed ``mach:'' to ``unix:''.
parent
b8ec264b
Changes
1
Hide whitespace changes
Inline
Side-by-side
hemlock/rcs.lisp
View file @
588c05ec
;;; -*- Package: HEMLOCK; Mode: Lisp -*-
;;; -*- Package: HEMLOCK; Mode: Lisp -*-
;;;
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.2
4
199
1/12/20 00:03:13 ram
Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.2
5
199
2/02/15 13:12:53 wlott
Exp $
;;;
;;;
;;; Various commands for dealing with RCS under Hemlock.
;;; Various commands for dealing with RCS under Hemlock.
;;;
;;;
...
@@ -86,13 +86,13 @@
...
@@ -86,13 +86,13 @@
(
in-directory
pathname
(
in-directory
pathname
(
let
((
file
(
file-namestring
pathname
)))
(
let
((
file
(
file-namestring
pathname
)))
(
do-command
"rcs"
`
(
"-l"
,
file
))
(
do-command
"rcs"
`
(
"-l"
,
file
))
(
multiple-value-bind
(
won
dev
ino
mode
)
(
mach
:unix-stat
file
)
(
multiple-value-bind
(
won
dev
ino
mode
)
(
unix
:unix-stat
file
)
(
declare
(
ignore
ino
))
(
declare
(
ignore
ino
))
(
cond
(
won
(
cond
(
won
(
mach
:unix-chmod
file
(
logior
mode
mach
:writeown
)))
(
unix
:unix-chmod
file
(
logior
mode
unix
:writeown
)))
(
t
(
t
(
editor-error
"
MACH
:UNIX-STAT lost in RCS-LOCK-FILE: ~A"
(
editor-error
"
UNIX
:UNIX-STAT lost in RCS-LOCK-FILE: ~A"
(
mach
:get-unix-error-msg
dev
)))))))
(
unix
:get-unix-error-msg
dev
)))))))
(
invoke-hook
rcs-lock-file-hook
buffer
pathname
))
(
invoke-hook
rcs-lock-file-hook
buffer
pathname
))
...
@@ -175,18 +175,18 @@
...
@@ -175,18 +175,18 @@
;; the rcs file.
;; the rcs file.
(
multiple-value-bind
(
multiple-value-bind
(
dev
ino
mode
nlink
uid
gid
rdev
size
atime
mtime
)
(
dev
ino
mode
nlink
uid
gid
rdev
size
atime
mtime
)
(
mach
:unix-stat
rcs-filename
)
(
unix
:unix-stat
rcs-filename
)
(
declare
(
ignore
mode
nlink
uid
gid
rdev
size
))
(
declare
(
ignore
mode
nlink
uid
gid
rdev
size
))
(
cond
(
dev
(
cond
(
dev
(
multiple-value-bind
(
multiple-value-bind
(
wonp
errno
)
(
wonp
errno
)
(
mach
:unix-utimes
filename
(
list
atime
0
mtime
0
))
(
unix
:unix-utimes
filename
(
list
atime
0
mtime
0
))
(
unless
wonp
(
unless
wonp
(
editor-error
"
MACH
:UNIX-UTIMES failed: ~A"
(
editor-error
"
UNIX
:UNIX-UTIMES failed: ~A"
(
mach
:get-unix-error-msg
errno
)))))
(
unix
:get-unix-error-msg
errno
)))))
(
t
(
t
(
editor-error
"
MACH
:UNIX-STAT failed: ~A"
(
editor-error
"
UNIX
:UNIX-STAT failed: ~A"
(
mach
:get-unix-error-msg
ino
)))))
(
unix
:get-unix-error-msg
ino
)))))
(
delete-buffer-if-possible
buffer
)))))
(
delete-buffer-if-possible
buffer
)))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment