Skip to content

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

24 lines (18 sloc) 1.92 kb
;ELC
;;; Compiled by toups@deluge on Wed Nov 30 14:43:17 2011
;;; from file /home/toups/elisp/utils/units.el
;;; in Emacs version 23.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\306\307!\210\310 \311\312!\211\205\312K\313\216\312\314M\210\315\316\317\316\320\316-.//:\203$-:\203$\f:\203$/@.-@\f@\321\322\312\323\324.\"!\325\326\327\330\331 \"EF!\210\321\322\312\323\332.\"!\333\334\327\330\335 \"EF!\210\321\322\312\323\324 \"!\336\326\327\330\337 [\"EF!\210\321\322\312\323\332 \"!\340\334\327\330\341 [\"EF!\210\321\342\312\323\324.\"!\312\323\332.\"!\312\323\324 \"!\312\323\332 \"!\257!\210\310\343\344\345\346\312.!\"P!\310\347\321\343\345\350\312\323\324.\"!\"!!\351\321\343\345\350\312\323\332.\"!\"!!$\343\344\345\346\312 !\"P!\310\347\321\343\345\350\312\323\324 \"!\"!!\351\321\343\345\350\312\323\332 \"!\"!!$%\352.!\210\352 !\210/A/-A-\fA\202'. \353\354!\207" [*units-map* #1=#:--cl-letf-bound-- #2=#:--cl-letf-save-- num #:--cl-var-- sub-name require with-stack alist>> fboundp drop-last ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#1# #2# drop-last fmakunbound] 2)) #[(x) "\303\304\"\211G\305 \306\nSO!*\207" [x s n format "%s" intern 0] 5] (base- deca- hecto- kilo- mega- giga- tera- peta- exa- zetta- yotta-) nil (base- deci- centi- milli- micro- nano- pico- femto- atto- zepto- yocto-) (0 1 2 3 6 9 12 15 18 21 24) eval defun internf "from-%s" (v) * v expt 10.0 "in-%s" (v) / 10.0 (v) 10.0 (v) 10.0 univalent-stack-words read ":" format "%s" :from "#'%s" :in print provide units #:--cl-var-- name #:--cl-var--] 18)
Jump to Line
Something went wrong with that request. Please try again.