test-include-other-package.ros

#!/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)))