[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

creating symbols

    Date: Sun, 24 Apr 88 10:22:30 MDT
    From:     andreas@boulder.Colorado.EDU (Andreas C. Lemke)

    Kaelbling@Warbucks.AI.SRI.COM writes:

    >the default *print-case* is
    >lower, so some atoms I was synthesizing came out in lower case

    This looks like you are doing something like:

      (intern (format nil "DEFINE-~A-INTERNAL" symbol))

    which is convenient but creates symbols with mixed case if
    *print-case* is lower.  It is better to use

      (intern (string-append "DEFINE-" symbol "-INTERNAL"))

(intern (format nil "DEFINE-~A-INTERNAL" (symbol-name symbol)))
is portable and more clear.