[slime-devel] CVS mini-tutorial (was: Re: Uh, (require 'slime) errors out)

[Vadim Nasardinov]

On Wed, 2004-07-21 at 15:37, Peter Seibel wrote:

> P.S. I'm a CVS idiot--how do I see what changes have been made
> recently to a given file?

See attached.

-------------- next part --------------
Date: 2004-07-21 17:51:02 -0400

Since I don't have a checkout yet:
  | $ cvs -d :pserver:anonymous at common-lisp.net:/project/slime/cvsroot login
  | $ cvs -d :pserver:anonymous at common-lisp.net:/project/slime/cvsroot checkout slime
  | cvs server: Updating slime
  | U slime/.cvsignore
  | U slime/ChangeLog
  | U slime/HACKING
  | U slime/NEWS
  | U slime/README
  | U slime/hyperspec.el
  | U slime/metering.lisp
  | U slime/mkdist.sh
  | U slime/nregex.lisp
  | U slime/slime.el
  | U slime/swank-abcl.lisp
  | U slime/swank-allegro.lisp
  | U slime/swank-backend.lisp
  | U slime/swank-clisp.lisp
  | U slime/swank-cmucl.lisp
  | U slime/swank-gray.lisp
  | U slime/swank-lispworks.lisp
  | U slime/swank-loader.lisp
  | U slime/swank-openmcl.lisp
  | U slime/swank-sbcl.lisp
  | U slime/swank-source-path-parser.lisp
  | U slime/swank.asd
  | U slime/swank.lisp
  | U slime/test-all.sh
  | U slime/test.sh
  | U slime/xref.lisp
  | cvs server: Updating slime/doc
  | U slime/doc/Makefile
  | U slime/doc/slime.texi
  | U slime/doc/texinfo-tabulate.awk

Let's see what we got here:
  $ cd slime/

The cvs2cl.pl is pretty handy, so let's grab it:

  | $ wget http://www.red-bean.com/cvs2cl/cvs2cl.pl
  | --17:40:28--  http://www.red-bean.com/cvs2cl/cvs2cl.pl
  |            => `cvs2cl.pl'
  | Resolving www.red-bean.com... done.
  | Connecting to www.red-bean.com[66.146.194.200]:80... connected.
  | HTTP request sent, awaiting response... 200 OK
  | Length: 90,425 [text/plain]
  | 
  | 100%[====================================>] 90,425       207.78K/s    ETA 00:00
  | 
  | 17:40:29 (207.78 KB/s) - `cvs2cl.pl' saved [90425/90425]
  | 
  | $ chmod ug+x cvs2cl.pl 

Let's see what the gang's been up to:

  | $ ./cvs2cl.pl --stdout > full-ChangeLog
  | cvs server: Logging .
  | cvs server: Logging doc
  | $ head -n 20 full-ChangeLog 
  | 2004-07-21 15:56  pseibel
  | 
  | 	* ChangeLog: Whoops. Forgot to check this in.
  | 
  | 2004-07-21 15:53  pseibel
  | 
  | 	* slime.el: Putting in fix for Allegro tests. (Thought I checked
  | 	  this in the other day.)
  | 
  | 2004-07-21 08:31  lgorrie
  | 
  | 	* swank.lisp: Added a FIXME comment about unwanted interning in
  | 	  symbol lookup.  Does bad things to completion of internal symbols
  | 	  like FOO::BAR.
  | 
  | 2004-07-21 08:30  lgorrie
  | 
  | 	* ChangeLog: [no log message]
  | 
  | 2004-07-21 08:29  lgorrie

Excerpts from the brief history of swank.lisp:

  | $ cvs log -N swank.lisp | head  -n 20
  | 
  | RCS file: /project/slime/cvsroot/slime/swank.lisp,v
  | Working file: swank.lisp
  | head: 1.219
  | branch:
  | locks: strict
  | access list:
  | keyword substitution: kv
  | total revisions: 224;	selected revisions: 224
  | description:
  | ----------------------------
  | revision 1.219
  | date: 2004/07/21 12:31:04;  author: lgorrie;  state: Exp;  lines: +1 -0
  | Added a FIXME comment about unwanted interning in symbol lookup.
  | Does bad things to completion of internal symbols like FOO::BAR.
  | ----------------------------
  | revision 1.218
  | date: 2004/07/19 14:09:40;  author: lgorrie;  state: Exp;  lines: +176 -176
  | Moved the Evaluation section up above the Debugging section.
  | ----------------------------
  | cvs [log aborted]: received broken pipe signal


Show the diff between two random versions:

  | $ cvs diff -r1.217 -r1.219 swank.lisp  | head -n 20
  | Index: swank.lisp
  | ===================================================================
  | RCS file: /project/slime/cvsroot/slime/swank.lisp,v
  | retrieving revision 1.217
  | retrieving revision 1.219
  | diff -r1.217 -r1.219
  | 932a933
  | > ;;; FIXME! FOO::BAR will intern FOO in BAR.
  | 1069a1071,1246
  | > ;;;; Evaluation
  | > 
  | > (defun eval-in-emacs (form)
  | >   "Execute FORM in Emacs."
  | >   (destructuring-bind (fn &rest args) form
  | >     (send-to-emacs `(:%apply ,(string-downcase (string fn)) ,args))))
  | > 
  | > (defun guess-buffer-package (string)
  | >   "Return a package for STRING. 
  | > Fall back to the the current if no such package exists."
  | >   (or (guess-package-from-string string nil)
  | cvs [diff aborted]: received broken pipe signal