Skip to content

Instantly share code, notes, and snippets.

@jmercouris

jmercouris/base.lisp

Created March 8, 2018 15:18
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jmercouris/5848e115987696c8f10befc5e01559fc to your computer and use it in GitHub Desktop.
Save jmercouris/5848e115987696c8f10befc5e01559fc to your computer and use it in GitHub Desktop.
Download ZIP
Raw
base.lisp
(defclass bla ()
((slot-name1
:initarg :initarg1
:initform
(multiple-value-bind (a b) (f x)
(list a b))
:reader reader1)
(slot-name2
:initarg :initarg2
:initform nil
:accessor accessor2)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment