Harnon wrote:Basically, i'm trying to automatically define a method
This code is in another package.
i want to be able to find multiple symbols in a package which have the same name
(they're both method names)
(defpackage :arnesi (:use :cl) (:export :walker :application-form))
(defclass application-form () ())
(defmethod walker ((class application-form)) (print "arnesi-walker"))
(defpackage :general-walker (:use :cl :arnesi) (:export :walker))
(defmethod walker ((class application-form))
(defpackage :test (:use :cl ))
(find-symbol 'walker :general-walker)
Harnon wrote:So, the question is, if you try to find the symbol 'walker in package :general-walker, will it return the inherited method symbol from arnesi or that from general-walker? Why?
On lispworks, using (find-symbol 'walker :general-walker) will return (values 'arnesi:walker :external). I half expected it to return (values 'general-walker::walker :internal)
Users browsing this forum: Yahoo [Bot] and 2 guests