with-use-ps-pack.ros

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
"
ps-experiment is required to be cloned from
  https://github.com/eshamster/ps-experiment.git
(commit id: 984dd0b18c962895f0a915da9136890e970e700d)
"
(ql:quickload :parenscript)
(ql:quickload :ps-experiment)

(defpackage pack-a
  (:use :cl
        :parenscript
        :ps-experiment))
(in-package :pack-a)

(defun.ps f1 (a b)
  (+ a b))

(defun.ps f2 (b)
  (f1 10 b))


(defpackage pack-b
  (:use :cl
        :parenscript
        :ps-experiment))
(in-package :pack-b)

(defun.ps f3 (a b)
  (- a b))

(defun.ps f4 (b)
  (f2 200 b))

(defun main (&rest argv)
  (declare (ignorable argv))
  (print (with-use-ps-pack (:pack-a
                            :this)
           (f1 a b))))