Mail Delivery Subsystem | 11 Apr 2013 14:35

Automated-response: Rejected e-mail

Warning: Malicious content within your e-mail was detected by our system. The message did not reach the
intended recipient. Please check the content of your message and try again. If you believe this was in
error, please forward this e-mail to support <at> acceleration.net.

Original message's header:
Received: from mail.common-lisp.net ( [50.7.166.114])
        by mailproc2.acceleration.net (VMS) with ESMTP id WQU45428
        for <russ <at> acceleration.net>; Thu, 11 Apr 2013 08:35:28 -0400
Received: from alpha-cl-net.common-lisp.net (localhost [127.0.0.1])
	by mail.common-lisp.net (Postfix) with SMTP id 5060D356786
	for <russ <at> acceleration.net>; Thu, 11 Apr 2013 05:28:50 -0700 (PDT)
X-Original-To: bese-devel <at> common-lisp.net
Received: from 193.25.121.86 (unknown [193.25.121.86])
	by mail.common-lisp.net (Postfix) with SMTP id 103DA356746
	for <bese-devel <at> common-lisp.net>; Thu, 11 Apr 2013 05:28:43 -0700 (PDT)
Received: from unknown (HELO n4grf4) ([53.186.29.188])
	by 193.25.121.86 with ESMTP; Thu, 11 Apr 2013 15:25:39 +0300
Message-ID: <002c01ce36a7$35e60b30$35ba1dbc <at> home9a21261296n4grf4>
From: "Herman Bowen" <krestianinovfv <at> e-xecutive.ru>
To: <bese-devel <at> common-lisp.net>
Subject: Absorb power for longer banging
Date: Thu, 11 Apr 2013 15:15:50 +0300
MIME-Version: 1.0
Content-Type: text/plain;
	format=flowed;
	charset="iso-8859-1";
	reply-type=original
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
(Continue reading)

Mail Delivery Subsystem | 11 Apr 2013 14:28

Automated-response: Rejected e-mail

Warning: Malicious content within your e-mail was detected by our system. The message did not reach the
intended recipient. Please check the content of your message and try again. If you believe this was in
error, please forward this e-mail to support <at> acceleration.net.

Original message's header:
Received: from mail.common-lisp.net ( [50.7.166.114])
        by mailproc2.acceleration.net (VMS) with ESMTP id WQN45755
        for <ryan <at> acceleration.net>; Thu, 11 Apr 2013 08:28:55 -0400
Received: from alpha-cl-net.common-lisp.net (localhost [127.0.0.1])
	by mail.common-lisp.net (Postfix) with SMTP id 5CDD13567B3
	for <ryan <at> acceleration.net>; Thu, 11 Apr 2013 05:28:50 -0700 (PDT)
X-Original-To: bese-devel <at> common-lisp.net
Received: from 193.25.121.86 (unknown [193.25.121.86])
	by mail.common-lisp.net (Postfix) with SMTP id 103DA356746
	for <bese-devel <at> common-lisp.net>; Thu, 11 Apr 2013 05:28:43 -0700 (PDT)
Received: from unknown (HELO n4grf4) ([53.186.29.188])
	by 193.25.121.86 with ESMTP; Thu, 11 Apr 2013 15:25:39 +0300
Message-ID: <002c01ce36a7$35e60b30$35ba1dbc <at> home9a21261296n4grf4>
From: "Herman Bowen" <krestianinovfv <at> e-xecutive.ru>
To: <bese-devel <at> common-lisp.net>
Subject: Absorb power for longer banging
Date: Thu, 11 Apr 2013 15:15:50 +0300
MIME-Version: 1.0
Content-Type: text/plain;
	format=flowed;
	charset="iso-8859-1";
	reply-type=original
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
(Continue reading)

Anton Vodonosov | 2 Mar 2013 11:12
Picon
Favicon

Fwd: error in (ql:quickload :arnesi.test): Unknown suite IT.BESE


-------- forwarded message  --------
27.01.2013, 16:35, "Anton Vodonosov" <avodonosov <at> yandex.ru>:

(ql:quickload :arnesi)
(ql:quickload :arnesi.test)

Unknown suite IT.BESE.
   [Condition of type SIMPLE-ERROR]

Backtrace:
  0: (IT.BESE.FIVEAM:MAKE-SUITE :IT.BESE.ARNESI :DESCRIPTION NIL :IN :IT.BESE)
  1: (CCL::%COMPILE-TIME-EVAL (IT.BESE.FIVEAM:MAKE-SUITE ':IT.BESE.ARNESI :IN ':IT.BESE)
#<CCL::LEXICAL-ENVIRONMENT #x210A01A95D>)
  2: (CCL::FCOMP-FORM-1 (IT.BESE.FIVEAM:MAKE-SUITE ':IT.BESE.ARNESI :IN ':IT.BESE)
#<CCL::LEXICAL-ENVIRONMENT #x210A01A95D> :COMPILE-TIME-TOO)
  3: (CCL::FCOMP-FORM (IT.BESE.FIVEAM:MAKE-SUITE ':IT.BESE.ARNESI :IN ':IT.BESE)
#<CCL::LEXICAL-ENVIRONMENT #x210A01A95D> :COMPILE-TIME-TOO)
  4: (CCL::FCOMP-FORM-LIST ((IT.BESE.FIVEAM:MAKE-SUITE ':IT.BESE.ARNESI :IN ':IT.BESE)
':IT.BESE.ARNESI) #<CCL::LEXICAL-ENVIRONMENT #x210A01A95D> :COMPILE-TIME-TOO)
  5: (CCL::FCOMP-EVAL-WHEN (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
(IT.BESE.FIVEAM:MAKE-SUITE ':IT.BESE.ARNESI :IN ':IT.BESE) ':IT.BESE.ARNESI)
#<CCL::LEXICAL-ENVIRONMENT #x210A01A95D> :NOT-..
  6: (CCL::FCOMP-FORM (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
(IT.BESE.FIVEAM:MAKE-SUITE ':IT.BESE.ARNESI :IN ':IT.BESE) ':IT.BESE.ARNESI)
#<CCL::LEXICAL-ENVIRONMENT #x210A01A95D> :NOT-COMPI..
  7: (CCL::FCOMP-FORM (IT.BESE.FIVEAM:DEF-SUITE :IT.BESE.ARNESI :IN :IT.BESE)
#<CCL::LEXICAL-ENVIRONMENT #x210A01A95D> :NOT-COMPILE-TIME)
  8: (CCL::FCOMP-READ-LOOP
"C:/Users/anton/quicklisp/dists/quicklisp/software/arnesi-20101006-darcs/t/suite.lisp"
(Continue reading)

Faré | 7 Jan 2013 07:21
Picon
Gravatar

Patch to qbook for ASDF 2.27

Here is a patch to qbook that will make it play nicer with ASDF, both
future 2.27 and legacy versions.

NB: You might also want to rename bulid-indexes to build-indexes in qbook.lisp.

—♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org
From a programmer's point of view, the user is a peripheral that types
when you issue a read request. — P. Williams
Attachment (qbook-asdf.diff): application/octet-stream, 1056 bytes
_______________________________________________
bese-devel mailing list
bese-devel <at> common-lisp.net
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/bese-devel
Kiyoshi Mizumaru | 21 Apr 2012 15:35
Picon

fiveam patch

Hi,

Would you please have a look at the following diffs?
In Allegro CL's modern case mode, fiveam cannot be load due to some
symbol case mismatches.

Thanks in advance,
Kiyoshi

https://github.com/kmizumar/fiveam/commit/83ea8b5c4ac22cec6befd2b95dafe5cf6ee0a49d

diff -rN old-fiveam/t/suite.lisp new-fiveam/t/suite.lisp
3c3
< (in-package :it.bese.fiveam)
---
> (in-package :it.bese.FiveAM)
9c9
< (def-suite :it.bese.fiveam :in :it.bese)
---
> (def-suite :it.bese.FiveAM :in :it.bese)
Kiyoshi Mizumaru | 21 Apr 2012 15:18
Picon

arnesi_dev patches

Hi,

Would you please have a look at the following diffs?
One is for Allegro CL's modern case mode, and the other is for
Lispworks conditional compile.

I'm not familiar with darcs, so please forgive me for not sending this
in darcs send.

Thanks in advance,
Kiyoshi

https://github.com/kmizumar/arnesi_dev/commit/aeb41d4b5284559ac07c458cdc315e4aebd42cb9

diff -rN old-arnesi_dev/src/hash.lisp new-arnesi_dev/src/hash.lisp
16,18c16,18
<                (reader (make-lookup-name name "GET-" name))
<                (writer (make-lookup-name name "GET-" name))
<                (rem-er (make-lookup-name name "REM-" name))
---
>                (reader (make-lookup-name name (symbol-name :get-) name))
>                (writer (make-lookup-name name (symbol-name :get-) name))
>                (rem-er (make-lookup-name name (symbol-name :rem-) name))

https://github.com/kmizumar/arnesi_dev/commit/c8aad5de20bb0b14f0b7db8cd47f2c1884dd4dd6

diff -rN old-arnesi_dev/src/lexenv.lisp new-arnesi_dev/src/lexenv.lisp
260c260
< #+(and lispworks macosx)
---
(Continue reading)

Marco Baringer | 18 Apr 2012 20:37
Picon

further development of FiveAM

hi,

   I've haven't worked on FiveAM in a long time (it's been at least 3
   years...), and apparently that's caused stagnation and
   fragmentation of the code base. my bad.

   Stelian Ionescu has graciously offered to take up further
   development of FiveAM. So i'm going to let him do that.

good luck,
--
-marco
Răzvan Rotaru | 6 Feb 2012 16:50
Picon

form validation

Hi,

 

I’m currently trying to learn and evaluate ucw for future projects and I was wondering if there is any support for form validation. I would be very thankful for suggestions on how to do this efficiently in ucw.

 

Thanks,
Razvan
_______________________________________________
bese-devel mailing list
bese-devel <at> common-lisp.net
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/bese-devel
CHIBA Masaomi | 22 Dec 2011 00:38
Picon

[Bug-Report]ARNESI:VARSYMP couses error with zero lengh name symbol

Hi.
I found trivial bug.
ARNESI:VARSYMP couses error with "zero lengh name" symbol.

(IT.BESE.ARNESI::VARSYMP :||)
;>>> error: Index 0 out of bounds for (SIMPLE-ARRAY CHARACTER (0))

(IT.BESE.ARNESI::VARSYMP '||)
;>>> error: Index 0 out of bounds for (SIMPLE-ARRAY CHARACTER (0))

fix:
(defun varsymp (x)
  (and (symbolp x)
       (string/= "" x)                  ;not zero length name
       (eq (aref (symbol-name x) 0) #\?)))

Regards.
--
CHIBA Masaomi
Boris Smilga | 11 Mar 2011 22:29
Picon

[yaclml] [patch] fixed inconsistency between NODE-CHILDREN and MAKE-NODE, (SETF NODE-CHILDREN) in XMLS

Hi.

This is a minor issue, actually.  In yaclml/src/tal/xmls.lisp, we read:

  (defun make-node (&key name ns attrs child children)
    (cons #<Datum for name, ns and attrs> #<Datum for child or children>))

and, correspondingly,

  (defun (setf node-children) (children elem)
    (setf (CDR elem) children)
    (node-children elem))

but, at the same time,

  (defun node-children (elem)
    (CDDR elem))

which results in the first child being lost.

Attached is a patch to fix this issue.

Sincerely,
 - B. Smilga.

Attachment (node-children.dpatch): application/octet-stream, 3777 bytes
_______________________________________________
bese-devel mailing list
bese-devel <at> common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel
Aashish L | 2 Jul 2010 15:08
Picon
Favicon

Date in form and clsql time elements mapping

Hi 
I am using stock UCW and I have difficulty in handling dates from CLSQL.
Take a look at following code, its messy, use of variables- dd,mm,yy and action- datehelper is what I want to
avoid! I also refered back Boxset's form.lisp, but could not figure out how to put raw d,m,y intgers back in
time element.
Help welcome!
Thanks.
~Arl

code starts:-------------
(clsql:def-view-class datetrial ()
  ((id
    :db-kind :key :type (integer 4) :initarg :id :initform 0)  
   (trydate
    :accessor trydate :type clsql:wall-time
    :initarg :trydate :initform (clsql:make-time :year 2000 :month 1 :day 1)))
  (:base-table |datetrial|))

;(clsql:create-view-from-class 'datetrial)

(defcomponent date-man ()
  ((ddate :accessor ddate :initarg :ddate :backtrack t
	  :initform (make-instance 'datetrial))))

(defcomponent get-date (date-man) 
  ())

(defmethod render ((self get-date))
  (let* ((temp (ddate self))
	 (bdate (trydate temp))
	 (dd (clsql:time-element bdate :day-of-month))
	 (mm (clsql:time-element bdate :month))
	 (yy (clsql:time-element bdate :year)))
    (<ucw:form :action (datehelper temp dd mm yy)
	       :method "post"
	       (<:table
		:border 1		
		(<:tr (<:td "date") 
		      (<:td "D :" (<ucw:select :accessor dd
					       (dotimes (x 31) 
						 (<ucw:option :value (+ 1 x) (<:as-html (+ 1 x)))))
			    " M :" (<ucw:select :accessor mm
						(dotimes (x 12) 
						  (<ucw:option :value (+ 1 x) (<:as-html (+ 1 x)))))
			    " Y :" (<ucw:select :accessor yy
						(do ((x 1950 (1+ x))) ((>= x 2020)) 
						  (<ucw:option :value x (<:as-html x)))))))
		(<:tr (<:td :colspan 2 :align "center"
			    (<:input :type "submit"))))))

(defaction datehelper ((temp datetrial) dd mm yy)
  (setf (trydate temp) (clsql:make-time :day dd
					:month mm
					:year yy))
  (answer temp))

(defaction new-date ()
  (let* ((newid (+ 1 (caar (clsql:select [max [id]] :from [|datetrial|]))))
	 (tdate (call 'get-date)))
    (progn 
      (setf (slot-value datetrial 'id) newid)      
      (clsql:update-records-from-instance tdate))))

(defentry-point "datetrial.html" (:application *date-application*);simple-application
  ()
  (new-date))
code ends:-------------

Gmane