..., 0xff00) No subtests run t/subseq...........Uncaught exception from user code: .../PatternMatcher.pm called at t/subseq.t line 4 main::BEGIN().../PatternMatcher.pm called at t/subseq.t line 4 main::BEGIN()... failed in require at t/subseq.t line 4. main::BEGIN()... failed--compilation aborted at t/subseq.t line 4. Dubious, test ... found in TAP output t/subseq (Wstat: 65280 Tests: 0 Failed:...

... (car item))) (dolist (sym (cdr item)) (cl-indent sym indent) (let ((p (position (character ":") (symbol-name sym)))) (when p (cl-indent (intern (subseq (symbol-name sym) (1+ p))) indent))))))) (defmacro* do-directories-up ((var dir-path &optional result) &body body) " DO: Evaluates body with var bound to dir-...

... anything-pattern "") (progn (setq matches (anything-get-cached-candidates source)) (if (> (length matches) anything-candidate-number-limit) (setq matches (subseq matches 0 anything-candidate-number-limit)))) (condition-case err-var (let ((item-count 0) (functions (assoc-default 'match source))...

... of parts. You use the mapping functions to transform an old list to a new list elementwise. You use NTH to select single elements by index, and SETF of NTH to change such an element. You use SUBSEQ to extract ranges of elements from an old list. You use APPEND to combine two lists into a list of all the elements from both in the obvious way. You use READ and PRINT/FORMAT to convert between ...

... (make-frame :length ~A :shape ~A :noun ~A :n-cells ~A )" remaining-lead-axes (subseq noun-shape 0 remaining-lead-axes) noun (- ls remaining-lead-axes)) (make-frame :length remaining-lead-axes :shape (subseq noun-shape 0 remaining-lead-axes) :noun noun :n-cells (- ls remaining-lead-axes))))) --...

... t " (make-frame :length ~A :shape ~A :noun ~A :n-cells ~A " remaining-lead-axes (subseq noun-shape 0 remaining-lead-axes) noun (- ls remaining-lead-axes)) (make-frame :length remaining-lead-axes :shape (subseq noun-shape 0 remaining-lead-axes) :noun noun :n-cells (- ls remaining-lead-axes)))))

... rights on c.l.f than Rainer? You're not just a guest, but you own it? Or are you just morally superior? Or are the rules for c.l.f different from the rules for c.l.l because it's inhabited by better human beings? I'd suggest that you simply get off your high horse. Edi. -- Lisp is not dead, it just smells funny. Real email: (replace (subseq "spamtrap@agharta.de" 5) "edi")

...new)))) (setcdr pattern-info (1+ (cdr pattern-info))) (if (> (length (cdr selection-info)) anything-adaptive-history- length) (setcdr selection-info (subseq (cdr selection-info) 0 anything-adaptive- history-length)))))) (load-file anything-adaptive-history-file) (add-hook 'kill-emacs-hook 'anything-adaptive-save-history) (defun anything-...

...,7 @@ (progn (setq matches (anything-get-cached-candidates source)) (if (> (length matches) anything-candidate-number-limit) - (setq matches + (setq matches (subseq matches 0 anything-candidate-number-limit)))) (let ((item-count 0)) @@ -445,7 +458,7 @@ (funcall insert-function match) (...

... 1.230000 0.5000000 0.6560000 1.23000001907349 0.500000000000000 0.656000018119812 1.23000000000000 0.500000000000000 0.656000000000000 1.23000002 0.500000000 0.656000018 1.230000019073486 0.5000000000000000 0.6560000181198120 1.230000000000000 0.5000000000000000 0.6560000000000000 see richards subseqent post for more information. Ian Chivers