Skip to content
Snippets Groups Projects
Commit 3c8aff8f authored by ram's avatar ram
Browse files

Fixed sub-check-in-file to specify "-u" as a list.

parent c1e8ac45
No related branches found
No related tags found
No related merge requests found
;;; -*- Package: HEMLOCK; Mode: Lisp -*- ;;; -*- Package: HEMLOCK; Mode: Lisp -*-
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.22 1991/11/08 18:20:20 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.23 1991/11/09 13:20:14 ram Exp $
;;; ;;;
;;; Various commands for dealing with RCS under Hemlock. ;;; Various commands for dealing with RCS under Hemlock.
;;; ;;;
...@@ -166,7 +166,7 @@ ...@@ -166,7 +166,7 @@
:buffer buffer)))) :buffer buffer))))
(in-directory pathname (in-directory pathname
(do-command "rcsci" `(,@(if keep-lock '("-l")) (do-command "rcsci" `(,@(if keep-lock '("-l"))
,@(if keep-working-copy "-u") ,@(if keep-working-copy '("-u"))
,filename) ,filename)
:input log-stream) :input log-stream)
(if keep-working-copy (if keep-working-copy
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment