August 2004 - aspectl-devel@common-lisp.net

[aspectl-devel] AspectL paper
by Pascal Costanza 16 Aug '04

16 Aug '04

Hi, I am currently polishing a paper about AspectL that has been accepted for a workshop. If anyone is interested in reading it upfront, please contact me. In turn, I would be happy to get some additional feedback in order to improve the paper. All the best, Pascal -- Tyler: "How's that working out for you?" Jack: "Great." Tyler: "Keep it up, then."

1 0

[aspectl-devel] Some progress...
by Jeff Caldwell 12 Aug '04

12 Aug '04

Hi, I found my problems with most of the issues. What I still have not made work is: (with-class 'person (class-add :direct-slots '(age :accessor age :initarg :age))) The following fixes my first two errors: (defpackage test-aspectl (:use :aspectl :cl-user :cl)) (in-package :test-aspectl) (defvar *some-environment* "This is *some-environment*!") (defvar *env-depth* 0) (defun setup-env (environment) (declare (ignore environment)) (incf *env-depth*)) (defun teardown-env () (decf *env-depth*)) (defmacro with-some-environment ((environment) &body body) `(let ((*some-environment* (setup-env ,environment))) (unwind-protect ,@body (teardown-env)))) (defmethod do-something (args &key &allow-other-keys) (format t "~&do-something *some-environment* ~A" *some-environment*)) (defmethod do-something-else (args &key &allow-other-keys) (format t "~&do-something-else *some-environment* ~A" *some-environment*)) (define-pointcut environment-pointcut) (define-join-point environment-pointcut do-something) (define-join-point environment-pointcut do-something-else) (define-aspect-weaver environment-pointcut accept-environment-arg (aspect-weaver join-point) (declare (ignore aspect-weaver)) (create-method (fdefinition (join-point-name join-point)) :qualifiers '(:around) :lambda-list '(args &key (in-environment *some-environment*) &allow-other-keys) :specializers (list (find-class 't)) :declarations '((ignore args)) :body '(progn (if (eq in-environment *some-environment*) (call-next-method) (with-some-environment (in-environment) (call-next-method)))))) Tonight I will try to get over the "now what?" feeling ... now what do I do with the code above? :) It is now with-special-function-scope instead of overview.html's with-special-generic-function-scope: (with-special-function-scope (print-person*) (defmethod* print-person* :before ((scope dynamic) person) (print "Dynamic!")) (print-person-list *pl*)) "Dynamic!" "Mr. X" "Dynamic!" "Mr. Y" "Dynamic!" "Mr. Z" (print-person-list *pl*) "Mr. X" "Mr. Y" "Mr. Z" Jeff Caldwell __________________________________ Do you Yahoo!? Yahoo! Mail - 50x more storage than other providers! http://promotions.yahoo.com/new_mail

2 1

[aspectl-devel] Errors in code from overview.html in aspectl-0.6
by Jeff Caldwell 10 Aug '04

10 Aug '04

Hi, I used asdf to load aspectl-0.6. Using overview.html, I extracted the code examples and tried to run them under Lispworks for Windows Professional 4.3.7. I got four errors. Here is my session: ;;;; Problems are noted in comments beginning ;;;; with "Error:" (defpackage test-aspectl (:use :aspectl :cl-user :cl)) (in-package :test-aspectl) (define-join-point environment-pointcut do-something) (define-join-point environment-pointcut do-something-else) ; => (#<JOIN-PONT 216EEA1C> #<JOIN-PONT 2068D784>) (define-aspect-weaver environment-pointcut accept-environment-arg (aspect-weaver join-point) (declare (ignore aspect-weaver)) (create-method (fdefinition (join-point-name join-point)) :qualifiers '(:around) :lambda-list '(args &key (in-environment *some-environment*) &allow-other-keys) :specializers (list (find-class 't)) :declarations '((ignore args)) :body '(progn (if (eq in-environment *some-environment*) (call-next-method) (with-some-environment (in-environment) (call-next-method))))))) ; Error: ; The code from overview.html is missing ; a parenthesis on the last line ; ; Error: ; => Undefined function DO-SOMETHING-ELSE in form ; (SYMBOL-FUNCTION DO-SOMETHING-ELSE) (defclass person () ((name :accessor name :initarg :name))) ; => #<STANDARD-CLASS PERSON 217ABAD4> (with-class 'person (class-add :direct-slots '(age :accessor age :initarg :age))) ; => #<STANDARD-CLASS PERSON 217ABAD4> (setq *p1* (make-instance 'person)) ; => #<PERSON 20687C04> (inspect *p1*) ; => ; #<PERSON 211E92A4> is a PERSON ; NAME #<unbound slot> ; ; Error: ; The direct slot 'age' was not added to the class ; 'person (defclass person () ((name :accessor person-name :initarg :name :special t)) (:metaclass special-class)) ; => #<SPECIAL-CLASS PERSON 217ABAD4> (defvar *p* (make-instance 'person :name "Dr. Jekyll")) ; => *P* (dletf (((person-name *p*) "Mr. Hide")) (print (person-name *p*))) ; => "Mr. Hide" (person-name *p*) ; => "Dr. Jekyll" (defgeneric print-person-list (person-list) (:method (person-list) (mapc #'print-person person-list))) ; => #<STANDARD-GENERIC-FUNCTION PRINT-PERSON-LIST 211DCDD2> (define-special-function print-person (person) (:definer print-person*) ;; "print-person" is the name to use for ;; calling the function while "print-person*" ;; is the name to use for defining methods (:method ((scope t) person) (print (person-name person)))) ; => #<SPECIAL-FUNCTION PRINT-PERSON* 211D9D2A> (defmethod print-person-list :around (person-list) (with-special-generic-function-scope (print-person*) (defmethod* print-person* :before ((scope dynamic) person) (print "This person is part of a person list.")) (call-next-method))) ; => #<STANDARD-METHOD PRINT-PERSON-LIST (:AROUND) (T) 2068C044> (setq *pl* ()) (push (make-instance 'person :name "Mr. X") *pl*) (push (make-instance 'person :name "Mr. Y") *pl*) (push (make-instance 'person :name "Mr. Z") *pl*) ; => (#<PERSON 2066A5C4> #<PERSON 2069108C> #<PERSON 206883BC>) (print-person-list *pl*) ; Error: ; => Call (#<closure 206642DA>) has the wrong ; number of arguments. Jeff Caldwell __________________________________ Do you Yahoo!? Yahoo! Mail - You care about security. So do we. http://promotions.yahoo.com/new_mail

2 1