Re: Uppercasing symbols - Naggum cll archive

Subject: Re: Uppercasing symbols
From: Erik Naggum <erik@naggum.no>
Date: 1998/11/26
Newsgroups: comp.lang.lisp
Message-ID: <3121033794360485@naggum.no>

* vrotney@netcom.com (William Paul Vrotney)
| I also find having a debugger printing something like the expression
| 
|         (defun faa (x)
|           (cond ((x (+ x x)))
|                 (t 0)))
| 
| as
| 
|         (DEFUN FAA (X)
|           (COND ((X (+ X X)))
|                 (T 0)))
| 
| yuckie.

  so (setq *print-case* :downcase) and increase your happiness.

#:Erik, who reads the fine standard and all the manuals
-- 
  The Microsoft Dating Program -- where do you want to crash tonight?