Re: Using "internal" macros of a CL implementation

Victor Kryukov wrote:

I've looked up definition of case in SBCL[*], and realized that my
task is as simple as

(defmacro case-string (keyform &body cases)
(case-body 'case keyform cases t 'string-equal nil nil nil))
^^^^

Should read
(case-body 'case-string keyform cases t 'string-equal nil nil nil))

.

Relevant Pages

  • Re: Using "internal" macros of a CL implementation
    ... (defmacro case-string (keyform &body cases) ... (case-body 'case keyform cases t 'string-equal nil nil nil)) ... My problem is with case-body - it's not imported by default, ...
    (comp.lang.lisp)
  • Re: Using "internal" macros of a CL implementation
    ... (defmacro case-string (keyform &body cases) ... (case-body 'case keyform cases t 'string-equal nil nil nil)) ... My problem is with case-body - it's not imported by default, ... Is there any elegant solution? ...
    (comp.lang.lisp)
  • Using "internal" macros of a CL implementation
    ... (defmacro case-string (keyform &body cases) ... (case-body 'case keyform cases t 'string-equal nil nil nil)) ... My problem is with case-body - it's not imported by default, ... Is there any elegant solution? ...
    (comp.lang.lisp)