Subject: Re: N00b question on let
From: rpw3@rpw3.org (Rob Warnock)
Date: Sun, 03 Dec 2006 05:33:53 -0600
Newsgroups: comp.lang.lisp
Message-ID: <2pidnQwJgIu8K-_YnZ2dnUVZ_vqdnZ2d@speakeasy.net>
Pascal Bourguignon  <pjb@informatimago.com> wrote:
+---------------
| C/USER[31]>(setf (readtable-case *readtable*) :preserve *print-case* :preserve)
| :PRESERVE
| C/USER[32]> (DEFUN thisIsMyFunction (x) (+ x 1))
| thisIsMyFunction
| C/USER[33]> (thisIsMyFunction 2)
| 3
+---------------

Silly wabbit. Of *course* you know you really want :INVERT, not
:PRESERVE, yes? [And you don't have to mess with *PRINT-CASE*, either.]

    > (setf (readtable-case *readtable*) :invert)

    :invert
    > (defun thisIsMyFunction (x) (+ x 1))

    thisIsMyFunction
    > (cons (thisIsMyFunction 2) (expt 2 10))

    (3 . 1024)
    >

*SOOOoooooo* much nicer than :PRESERVE.  ;-}  ;-}

+---------------
| C/USER[36]> (APROPOS "this")
| SYSTEM::OVER-THIS-LEVEL                 
| thisIsMyFunction                           function
+---------------

    > (apropos :thisi)

    thisIsMyFunction [function] 
    :thisi [constant] value: :thisi
    > 


-Rob

-----
Rob Warnock			<rpw3@rpw3.org>
627 26th Avenue			<URL:http://rpw3.org/>
San Mateo, CA 94403		(650)572-2607