[Phemlock-cvs] CVS update: phemlock/src/main.lisp

[Aleksandar Bakic]

Update of /project/phemlock/cvsroot/phemlock/src
In directory common-lisp.net:/tmp/cvs-serv4954/src

Modified Files:
	main.lisp 
Log Message:
Changes to get rid of warnings and notes. As a side-effect, more code
has been commented out. There should be no more warnings nor notes
with CMUCL, and only two style warnings with SBCL. Not tested with
other implementations yet. TODO: spread key bindings to different
files.

Date: Sat Sep  4 01:06:45 2004
Author: abakic

Index: phemlock/src/main.lisp
diff -u phemlock/src/main.lisp:1.1.1.1 phemlock/src/main.lisp:1.2
--- phemlock/src/main.lisp:1.1.1.1	Fri Jul  9 15:37:42 2004
+++ phemlock/src/main.lisp	Sat Sep  4 01:06:45 2004
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 #+CMU (ext:file-comment
-  "$Header: /project/phemlock/cvsroot/phemlock/src/main.lisp,v 1.1.1.1 2004/07/09 13:37:42 gbaumann Exp $")
+  "$Header: /project/phemlock/cvsroot/phemlock/src/main.lisp,v 1.2 2004/09/03 23:06:45 abakic Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -321,7 +321,7 @@
 	    (if (not (eq init t))
 		init
 		(and switch
-		     (or (cmd-switch-value switch)
+		     #+nilamb (or (cmd-switch-value switch)
 			 (car (cmd-switch-words switch))))))
            (home (user-homedir-pathname)))
       (when home