Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defstruct foo
- (a 0.0 :type single-float))
- (defstruct (bar (:include foo)))
- (defstruct foo
- (a 0.0d0 :type double-float)) ;; pick continue restart
- (compile nil '(lambda () (defstruct (bar (:include foo)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement