picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE
commit 3785b629314c37bbf77b2eb506794193f3ab983b
parent b77200e37c85179a0bc73ef0c07e0eb6e9c28bc1
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 22 Mar 2011 20:10:02 +0100

Added 'set>' method to '+Uppc' class (for completeness)
Diffstat:

Mlib/form.l | 3+++


1 file changed, 3 insertions(+), 0 deletions(-)

diff --git a/lib/form.l b/lib/form.l
@@ -711,6 +711,9 @@
 # Case conversions
 (class +Uppc)
 
+(dm set> (Val Dn)
+   (extra (uppc Val) Dn) )
+
 (dm val> ()
    (uppc (extra)) )