Skip to content

Instantly share code, notes, and snippets.

@gsg

gsg/constructor-like.lisp

Created May 19, 2015 17:23
Show Gist options
  • Save gsg/e00f9913e20081cdfa30 to your computer and use it in GitHub Desktop.
Save gsg/e00f9913e20081cdfa30 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
constructor-like.lisp
(defclass foo ()
((a :initarg :a
:initform 'bar)
(b)))
(defmethod initialize-instance :after ((f foo) &key)
(setf (slot-value f 'b) (slot-value f 'a)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment