cl-utilities manual

Macro

+(collecting (dotimes (x 10) (collect x))) => (0 1 2 3 4 5 6 7 8 9)
+
+(multiple-value-bind (a b)
+    (with-collectors (x y)
+      (x 1)
+      (y 2)
+      (x 3))
+  (append a b)) => (1 2 3)
+
=>
(funcall (compose f g) 42)
(f (g
+42))
+;; Just to illustrate order of operations
+(defun 2* (x) (* 2 x))
+
+
+(funcall (compose #'1+ #'1+) 1) => 3
+(funcall (compose '1+ '2*) 5) => 11
+(funcall (compose #'1+ '2* '1+) 6) => 15 
+
+(defun mv-compose2 (f1 f2)
+  (lambda (&rest args)
+    (multiple-value-call f1 (apply f2 args))))
+    
+(defun mv-compose (&rest functions)
+  (if functions
+    (reduce #'mv-compose2 functions)
+    #'values))
+
&key
+(copy-array #(1 2 3)) => #(1 2 3)
+
+(let ((array #(1 2 3)))
+  (eq (copy-array array) array)) => NIL
+
(expt-mod n exponent divisor)
(mod (expt n exponent) divisor)
(mod (expt
+n exponent) divisor)
(mod (expt n
+exponent) divisor)
(mod (expt n exponent) divisor)
&key
&key
&key
x
y
(funcall 

+
 
)
(funcall
+
 
 
)
(extremum predicate sequence :key key)
(elt (sort
+predicate (subseq sequence start end) :key key) 0)
#'identity
(mod (expt n e) m)
&key 
+(rotate-byte 3 (byte 32 0) 3) => 24
+(rotate-byte 3 (byte 5 5) 3) => 3
+(rotate-byte 6 (byte 8 0) -3) => -129
+
&key
&key
&key
0
+ (split-sequence:SPLIT-SEQUENCE #\Space "A stitch in time saves nine.")
+=>  ("A" "stitch" "in" "time" "saves" "nine.")
+    28
+ (split-sequence:SPLIT-SEQUENCE #\, "foo,bar ,baz, foobar , barbaz,")
+=>  ("foo" "bar " "baz" " foobar " " barbaz" "")
+    30
+
+(defun split-list-if (test list &aux (start list) (end list))
+  (loop while (and end (setq start (member-if-not test end)))
+	collect (ldiff start (setq end (member-if test start)))))
+
+
+    (with-unique-names (sym1) sym1)  =>  #:SYM13142
+    (with-unique-names ((sym1 "SYM1-")) sym1)  => #:SYM1-3143
+    (find-symbol "SYM1-3143")  =>  NIL, NIL
+    (with-unique-names ((sym #\Q)) sym) => #:Q3144
+    (with-unique-names ((sym1 :sym1-)) sym1) => #:SYM1-3145
+    (with-unique-names (sym1) (symbol-package sym1))  =>  NIL
+    (with-unique-names (sym8) (eq sym8 sym8))  =>  T
+    (with-unique-names (sym9) (set sym9 42) (symbol-value sym9))  =>  42
+
+     (defreadtable elisp:syntax
+        (:merge :standard)
+        (:macro-char #\? #'elisp::read-character-literal t)
+        (:macro-char #\[ #'elisp::read-vector-literal t)
+        ...
+        (:case :preserve))
+    
+     (defreadtable scheme:syntax
+        (:merge :standard)
+        (:macro-char #\[ #'(lambda (stream char)
+                              (read-delimited-list #\] stream)))
+        (:macro-char #\# :dispatch)
+        (:dispatch-macro-char #\# #\t #'scheme::read-#t)
+        (:dispatch-macro-char #\# #\f #'scheme::read-#f)
+        ...
+        (:case :preserve))
+    
+     (in-readtable elisp:syntax)
+    
+     ...
+    
+     (in-readtable scheme:syntax)
+    
+     ...
+
&optional
&optional
&key
&rest

cl-utilities manual

Table of contents:

EDITOR-HINTS.NAMED-READTABLES

by Tobias C Rittweiler

Contents

What are Named-Readtables?

Notes on the API

Important API idiosyncrasies

Preregistered Readtables

Examples

Acknowledgements

Dictionary