SHARE
TWEET

Untitled

a guest Jun 17th, 2019 43 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defstruct foo
  2.   (a 0.0 :type single-float))
  3. (defstruct (bar (:include foo)))
  4. (defstruct foo
  5.   (a 0.0d0 :type double-float)) ;; pick continue restart
  6. (compile nil '(lambda () (defstruct (bar (:include foo)))))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top