1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
;;;; 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)
|
