Commit d1d99c6c authored by Dave Cooper's avatar Dave Cooper

merged patches

parents 927b360d 8cd82e95
...@@ -295,11 +295,11 @@ If you are interested in this effort we would love to hear from you at open-sour ...@@ -295,11 +295,11 @@ If you are interested in this effort we would love to hear from you at open-sour
#-(or allegro lispworks sbcl ccl abcl ecl clisp) (error "Need package for mop:validate-superclass for currently running lisp.~%") #-(or allegro lispworks sbcl ccl abcl ecl clisp) (error "Need package for mop:validate-superclass for currently running lisp.~%")
(defpackage :glisp (defpackage :com.genworks.lisp
(:documentation #.(gendl-boot:system-description :glisp)) (:documentation #.(gendl-boot:system-description :glisp))
(:use :common-lisp) (:use :common-lisp)
(:shadow #:intern) (:shadow #:intern)
(:nicknames :com.genworks.lisp) (:nicknames :glisp)
(:import-from #+(or allegro abcl) :mop #+lispworks :hcl #+sbcl :sb-mop #+ccl :ccl #+(or ecl clisp) :clos (:import-from #+(or allegro abcl) :mop #+lispworks :hcl #+sbcl :sb-mop #+ccl :ccl #+(or ecl clisp) :clos
#:validate-superclass) #:validate-superclass)
(:export (:export
......
...@@ -141,3 +141,24 @@ re-evaluates the expression to compute the original list of indices)" ...@@ -141,3 +141,24 @@ re-evaluates the expression to compute the original list of indices)"
(the (set-slot! :element-index-list (the (set-slot! :element-index-list
(append (the element-index-list) (list index))))) (append (the element-index-list) (list index)))))
(error "The element ~a is already active in ~s" index self)))))))) (error "The element ~a is already active in ~s" index self))))))))
(in-package :tasty)
(#+allegro
excl:without-package-locks #-allegro progn
(#+allegro
excl:without-redefinition-warnings #-allegro progn
(define-object-amendment value-inspector ()
:input-slots ((value (with-error-handling ()
(let (gdl::*notify-cons*)
(the parent-node (evaluate (the message)))))))
:functions
((get-value-element
(index)
(case (the value-type)
(:list (nth index (the value)))
(:gdl-sequence (let (gdl::*notify-cons*) (the value (get-member index))))))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment