Skip to content

Instantly share code, notes, and snippets.

@eshamster
Last active December 6, 2015 13:43
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 eshamster/a642c6d4cee674d09b8f to your computer and use it in GitHub Desktop.
Save eshamster/a642c6d4cee674d09b8f to your computer and use it in GitHub Desktop.
#!/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