Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

file 25 lines (20 sloc) 1.639 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
;ELC
;;; Compiled by toups@deluge on Wed Jun 8 16:03:25 2011
;;; from file /home/toups/elisp/utils/later.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19.29")))
    (error "`later.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require cl utils] 2)
(defalias 'single-symbol-list\? #[(item) "<\205G\301U\205@9\207" [item 1] 2])
(defalias 'binderish\? #[(item) "<\205G\301U\205@9\207" [item 2] 2])
(defalias 'with-form->binder #[(item) "9\203 \211D\207<\203&\301!\203@B\207\302!\203!\207\303\304\"\207\303\304\"\207" [item single-symbol-list\? binderish\? error "with-forms require symbols, a single symbol list, or a binder-like expression. Got %S."] 3])
#@55 Not documented

(fn EXPR &key (WITH nil) (WITH* nil))
(defalias 'later '(macro . #[(expr &rest #1=#:--cl-rest--) "\305>A@\306>A@ \2038 @\307>\203! AA\211\202\310>A@\203/\311\211\202\312\313 @\"\210\202) \203K\314\315\316 \"\317\f\306\nFE\202_\n\203[\320\315\316\n\"\317\fDE\202_\321\311\fE*\207" [#1# with with* #2=#:--cl-keys-- expr :with :with* (:with :with* :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:with :with*)" lexical-let mapcar with-form->binder later lexical-let* lambda] 7 (#$ . 1062)]))
(provide 'later)
Something went wrong with that request. Please try again.