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