;;;; Test file for Lisp
;;;; A simple test file
(defpackage :foobar (:use :common-lisp-user :common-lisp))
 
(in-package :foobar)
(export '(new-obj mapobj parent call-if-exists ?call
	 call super super-if-exists ?super slot-val
	 slot-obj mset meth meth-func func-meth
	 this meth-owner meth-name
	 set-original-slot *foo-version*
	 *print-foo-objects-verbosely*))
(defconstant *foobar-version* 3 "Foobar's Version Number")
(defparameter *print-foobar-objects-verbosely* nil)
(defmacro definline (name &rest stuff)
 "Defines a function and declares it to be inlined" ;; convenient, no?
 `(progn (declaim (inline ,name))
	 (defun ,name ,@stuff)))
(defstruct (foobar-object (:print-object print-foobar-object)) slots parent)
 (defun mapobj (func obj &optional (deeply nil))
 "Maps FUNC over all of the slots in OBJ. FUNC must take THREE
arguments: (1) the object defining the slot, (2) the slot name.
That is, only one slot
is mapped for a given slot name. nil is returned."
 (simple-error-check obj
;;; OTHER STUFF INSIDE A METHOD
;;; @ macro
;;; Forms: @var Expands to (slot-val 'var this)
;;; @(meth ... ) Expands to (call 'meth this ... )
;;; @? macro
;;; Form: @?(meth ... ) Expands to (?call 'meth this ... )
;;; #@ macro
;;; Form: #@meth Expands to (meth-func 'meth this)