Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros +Q -- $0 "$@"
|#
(defpackage pack-a
(:use :cl)
(:export :test-struct))
(in-package :pack-a)
(defstruct test-struct
slot1)
(defpackage pack-b
(:use :cl
:pack-a))
(in-package :pack-b)
(defstruct (test-struct2 (:include test-struct
(slot1 100)))
slot2)
(defun main (&rest argv)
(declare (ignorable argv))
(print (make-test-struct2)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment