February 2008 - alexandria-devel - mailman3.common-lisp.net

[alexandria-devel] darcs patch: Add #.#+ readtime conditional functions.
by asf＠boinkor.net 02 Oct '09

02 Oct '09

Mon Oct 16 10:00:31 CEST 2006 asf(a)boinkor.net * Add #.#+ readtime conditional functions. * This adds functions that can be used in #+#. readtime conditionals, for example: #+#.(alexandria:read-if (find-package :asdf-install)) :yay #+#.(alexandria:read-if-fbound :install :asdf-install :exportedp t) :yay * included in the patch is a commented-out portion that allows the user to activate a #? read syntax. I'm not sure if that fits into the conservativism constraints.

3 3

[alexandria-devel] length=1
by Attila Lendvai 27 May '08

27 May '08

dear list, is there any objections against this? (declaim (inline length=1)) (defun length=1 (sequence) (if (listp sequence) (and sequence (null (rest sequence))) (= 1 (length sequence)))) in optimized code, where type information is available, it drops the type check. and otherwise it works for sequences and is fast for lists. maybe it could be extended into two functions: length= and length=1, where length= optimizes for lists using nthcdr. -- attila

5 15

[alexandria-devel] cdr 5
by Attila Lendvai 11 Mar '08

11 Mar '08

dear list, any objections against adding the types listed in cdr 5 to alexandria? it already has array-index and the rest seems useful, too. http://cdr.eurolisp.org/document/5/extra-num-types.html if noone does that before me and there's no objection either, i'll push it eventually. -- attila

3 3

[alexandria-devel] [PATCH] remove-from-plistf
by Michael Weber 08 Mar '08

08 Mar '08

Hi, remove-from-plistf is show as having arglist (at least with SBCL, similarly with OpenMCL): (remove-from-plistf place plist &rest keys) which is wrong. Attached patch fixes it. Cheers, Michael

2 1

[alexandria-devel] [PATCH] fix featurep
by Stelian Ionescu 01 Mar '08

01 Mar '08

The attached patch makes FEATUREP accept any compound test specifier, not just the keywords :AND, :OR and :NOT . -- Stelian Ionescu a.k.a. fe[nl]ix Quidquid latine dictum sit, altum videtur.

2 1

[alexandria-devel] REMOVEF and DELETEF
by Chun Tian (binghe) 23 Feb '08

23 Feb '08

Hi, Alexandria Developers I saw this two modify macro in sequences.lisp: (define-modify-macro removef (item &rest remove-keywords) (lambda (seq item &rest keyword-arguments) (apply #'remove item seq keyword-arguments)) "Modify-macro for REMOVE. Sets place designated by the first argument to the result of calling REMOVE with ITEM, place, and the REMOVE- KEYWORDS.") (define-modify-macro deletef (item &rest remove-keywords) (lambda (seq item &rest keyword-arguments) (apply #'delete item seq keyword-arguments)) "Modify-macro for DELETE. Sets place designated by the first argument to the result of calling DELETE with ITEM, place, and the REMOVE- KEYWORDS.") It seems that the use of DEFINE-MODIFY-MACRO doesn't match the ANSI CL standard. HyperSpec[1] says the 3rd argument of DEFINE-MODIFY-MACRO must be a symbol, not a lambda expression. A new version of LispWorks (still under test) will cannot compile these two definitions: ANSI CL requires the argument to be a symbol, so I think ARNESI is wrong. We changed this in LW 5.1. --- Martin Simmons from LispWorks, Ltd. Hope you can fix this, thanks. Chun TIAN (binghe) [1] http://www.lispworks.com/documentation/HyperSpec/Body/m_defi_2.htm#define-m…

2 2

[alexandria-devel] [PATCH] add MEMQ
by Stelian Ionescu 11 Feb '08

11 Feb '08

Hello, the attached patch adds MEMQ. I think that MEMQ is popular and useful enough that it should be part of Alexandria. -- Stelian Ionescu a.k.a. fe[nl]ix Quidquid latine dictum sit, altum videtur.

3 3

[alexandria-devel] [PATCH] fix generate-switch-body
by Stelian Ionescu 09 Feb '08

09 Feb '08

The attached patch makes GENERATE-SWITCH-BODY extract the function name of KEY too, not just TEST. -- Stelian Ionescu a.k.a. fe[nl]ix Quidquid latine dictum sit, altum videtur.

2 1

[alexandria-devel] format-mixed-radix-number, format-duration
by Michael Weber 07 Feb '08

07 Feb '08

Hi, wonder whether the functions below are candidates for alexandria: ;;; Examples (format-duration nil 86401.5) => "1d0h0m1.50s" (format-duration nil 86401 :format '(" ~,2F second~:P" " ~D minute~:P" " ~D hour~:P" " ~D day~:P")) => " 1 day 0 hours 0 minutes 1.00 second" ;;; Code: (defun format-mixed-radix-number (stream number radix-list format-list &key lsb-first leading-zeros (trailing-zeros t)) "Prints NUMBER to STREAM in mixed-radix RADIX. representation-LIST is a list of radixes, least-significant first. FORMAT-LIST is a list of format directives, one for each digit. When LSB-FIRST is nil (default), print most-significant digit first, otherwise least-significant digit first. When LEADING-ZEROS and TRAILING-ZEROS are nil, leading and trailing zero digits are not printed, respectively. \(default: remove leading zeros, keep trailing zeros)" (let ((format-pairs (loop with digit and fraction initially (setf (values number fraction) (truncate number)) for f-list on format-list and r-list = radix-list then (rest r-list) collect (list (first f-list) (cond ((endp r-list) (shiftf number 0)) ((rest f-list) (setf (values number digit) (truncate number (first r- list))) digit) (t number))) into list finally (progn (incf (cadar list) fraction) (return (nreverse list)))))) (unless trailing-zeros (setf format-pairs (member-if #'plusp format-pairs :key #'second))) (when lsb-first (setf format-pairs (nreverse format-pairs))) (unless leading-zeros (setf format-pairs (member-if #'plusp format-pairs :key #'second))) (format stream "~{~{~@?~}~}" format-pairs))) (defvar *duration-format-string* '("~4,2Fs" "~Dm" "~Dh" "~Dd" "~Dy") "Default format for `format-duration'. Least-significant digit first.") (defun format-duration (stream duration &rest args &key (format *duration-format-string*) leading-zeros trailing-zeros &allow-other-keys) "Prints DURATION (a time duration in seconds) to STREAM according to FORMAT \(default: *DURATION-FORMAT-STRING*). \(See also `format-mixed-radix-number'.)" (declare (ignore leading-zeros trailing-zeros)) (alexandria:remove-from-plistf args :format) (apply #'format-mixed-radix-number stream duration '(60 60 24 365) format args))

2 2