Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: d09d1448de
Fetching contributors…

Cannot retrieve contributors at this time

file 107 lines (97 sloc) 27.3 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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107
;ELC
;;; Compiled by toups@deluge on Wed Jul 20 11:33:07 2011
;;; from file /home/toups/elisp/utils/chemistry.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 "`chemistry.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\207" [require with-stack stack-words eperiodic defn monads functional units recur] 2)
(defalias 'element-name #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-261927 #2=#:stack-temp-161926 #3=#:stack-temp-161929 nil name assoc] 4])
(defalias 'element-symbol #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-261932 #2=#:stack-temp-161931 #3=#:stack-temp-161934 nil symbol assoc] 4])
(defalias 'element-name #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-261937 #2=#:stack-temp-161936 #3=#:stack-temp-161939 nil name assoc] 4])
(defalias 'element-symbol #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-261942 #2=#:stack-temp-161941 #3=#:stack-temp-161944 nil symbol assoc] 4])
(defalias 'element-atomic-mass #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-261947 #2=#:stack-temp-161946 #3=#:stack-temp-161949 nil atomic-mass assoc] 4])
(defalias 'element-density #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-261952 #2=#:stack-temp-161951 #3=#:stack-temp-161954 nil density assoc] 4])
(defalias 'element-melting-point #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-261957 #2=#:stack-temp-161956 #3=#:stack-temp-161959 nil melting-point assoc] 4])
(defalias 'element-boiling-point #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-261962 #2=#:stack-temp-161961 #3=#:stack-temp-161964 nil boiling-point assoc] 4])
(defalias 'element-atomic-radius #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-261967 #2=#:stack-temp-161966 #3=#:stack-temp-161969 nil atomic-radius assoc] 4])
(defalias 'element-covalent-radius #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-261972 #2=#:stack-temp-161971 #3=#:stack-temp-161974 nil covalent-radius assoc] 4])
(defalias 'element-ionic-radius #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-261977 #2=#:stack-temp-161976 #3=#:stack-temp-161979 nil ionic-radius assoc] 4])
(defalias 'element-atomic-volume #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-261982 #2=#:stack-temp-161981 #3=#:stack-temp-161984 nil atomic-volume assoc] 4])
(defalias 'element-specific-heat #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-261987 #2=#:stack-temp-161986 #3=#:stack-temp-161989 nil specific-heat assoc] 4])
(defalias 'element-fusion-heat #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-261992 #2=#:stack-temp-161991 #3=#:stack-temp-161994 nil fusion-heat assoc] 4])
(defalias 'element-evaporation-heat #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-261997 #2=#:stack-temp-161996 #3=#:stack-temp-161999 nil evaporation-heat assoc] 4])
(defalias 'element-thermal-conductivity #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-262002 #2=#:stack-temp-162001 #3=#:stack-temp-162004 nil thermal-conductivity assoc] 4])
(defalias 'element-debye-temperature #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-262007 #2=#:stack-temp-162006 #3=#:stack-temp-162009 nil debye-temperature assoc] 4])
(defalias 'element-pauling-negativity-number #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-262012 #2=#:stack-temp-162011 #3=#:stack-temp-162014 nil pauling-negativity-number assoc] 4])
(defalias 'element-first-ionization-energy #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-262017 #2=#:stack-temp-162016 #3=#:stack-temp-162019 nil first-ionization-energy assoc] 4])
(defalias 'element-oxidation-states #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-262022 #2=#:stack-temp-162021 #3=#:stack-temp-162024 nil oxidation-states assoc] 4])
(defalias 'element-lattice-structure #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-262027 #2=#:stack-temp-162026 #3=#:stack-temp-162029 nil lattice-structure assoc] 4])
(defalias 'element-lattice-constant #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-262032 #2=#:stack-temp-162031 #3=#:stack-temp-162034 nil lattice-constant assoc] 4])
(defalias 'element-lattice-c/a-ratio #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-262037 #2=#:stack-temp-162036 #3=#:stack-temp-162039 nil lattice-c/a-ratio assoc] 4])
(defalias 'element-appearance #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-262042 #2=#:stack-temp-162041 #3=#:stack-temp-162044 nil appearance assoc] 4])
(defalias 'element-discovery-date #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-262047 #2=#:stack-temp-162046 #3=#:stack-temp-162049 nil discovery-date assoc] 4])
(defalias 'element-discovered-by #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-262052 #2=#:stack-temp-162051 #3=#:stack-temp-162054 nil discovered-by assoc] 4])
(defalias 'element-named-after #[(element) "\306\211\307 B\n B\211\211A@ \211A@\310 \f\" B* \211A@\211A B) @*\207" [*retain-stack* *stack* element #1=#:stack-temp-262057 #2=#:stack-temp-162056 #3=#:stack-temp-162059 nil named-after assoc] 4])
(byte-code "\304\305\306!\211\307L\210\310\304\311\312\313\314\315 D\316FE\"\210\304\317\304!\210\n\210+\304\320 \"\210\304\321!\207" [currently-defining-defn #:--cl-get-element-by-name-62060-- #:defunc-val62062 eperiodic-element-properties get-element-by-name make-symbol "--get-element-by-name-62060--" #[(&rest #1=#:G62064) "G\306 \307\"\203\221\310\311C\304J\312\234\305J\312\234\305J\313\234
\314\313\315J\"\315J\312\234 \203\213\311\316J\226\317\320J!\226\230\204M\316J\226\321\320J!\226\230\203R\320J\202\207\315J\204[\311\202\207\310\316J\322JD\211C\211\312\234\211\312\234\313\234
\314\313\315J\"\315J\312\234\211)\202/\n.\202\260\306 \323\"\203\253\324J\312\234\325\326J\"*\202\260\327\330 \331#)\207" [#1# #:G62065 #:return-value62079 #:loop-sentinal62078 #:--cl-lambda-seq-as-sym62083-- #:--cl-lambda-seq-as-sym62089-- arity-match (2 exactly) t nil 0 1 nthcdr-preserve-type #:--cl-elements-- #:--cl-name-- element-name #:--cl-element-- element-symbol #:--cl-rest-- (1 exactly) #:--cl-lambda-seq-as-sym62074-- get-element-by-name #:--cl-name-- error "Unable to find an arity match for %d args in fn %s." lambda #:dsetq-val-0-62100 #:lambda-seq-as-sym62104 #:lambda-seq-as-sym62110 eperiodic-element-properties] 4] defalias lambda (&rest --cl-rest--) apply #[(#2=#:G62063 &rest #3=#:get-element-by-name-args-62061) "\302J \"\207" [#2# #3# apply] 3] quote --cl-rest-- byte-compile "Helium" "He"] 9)
(defalias 'less-electronegative-than #[(a b) "\304\305!!\304\305 !!\211\247\203\n\247\203 \nW\202C 9\203*\n\247\203*\306\202C \247\2038\n9\2038\307\202C 9\205C\n9\205C\306*\207" [a b en2 en1 read element-pauling-negativity-number nil t] 5])
(defalias 'more-electronegative-than #[(a b) "\304\305!!\304\305 !!\211\247\203\n\247\203 \nV\202C 9\203*\n\247\203*\306\202C \247\2038\n9\2038\307\202C 9\205C\n9\205C\306*\207" [a b en2 en1 read element-pauling-negativity-number nil t] 5])
(byte-code "\304\211\n B\305 B\306 \210 @*\304\207" [*retain-stack* *stack* eperiodic-element-properties chemical-names nil (1>element-symbol) stack-map-] 2)
(defalias 'generate-conditions #[(alist) "\306\307\310 \311\"\312 !\204\313\314!\210\315\316!\211\205\316K\317\216\316\320M\210\315\321!\211\205.\321K\322\216\321\323M\210\315\324!\211\205A\324K\325\216\324\326M\210\315\327!\211\205T\327K\330\216\327\331M\210\316 @\211!A@)\332\". A#\207" [monad-seq current-monad m-zero #1=#:--cl-letf-bound-- #2=#:--cl-letf-save-- #3=#:--cl-letf-bound-- foldl #[(it ac) "\306 \307\"\310 !\204\311\312!\210\313\314!\211\205\314K\315\216\314\316M\210\313\317!\211\205,\317K\320\216\317\321M\210\313\322!\211\205?\322K\323\216\322\324M\210\313\325!\211\205R\325K\326\216\325\327M\210\314\330\".\207" [monad-seq current-monad m-zero #4=#:--cl-letf-bound-- #5=#:--cl-letf-save-- #6=#:--cl-letf-bound-- tbl :m-zero monad\? error #7="Expected a monad in an mlet or similar form. \nA monad is a hash table with m-return and m-bind forms." fboundp m-bind ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#4# #5# m-bind fmakunbound] 2)) #[(v f) "\303\304\" \n\"\207" [current-monad v f tbl :m-bind] 3] m-return ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#6# #8=#:--cl-letf-save-- m-return fmakunbound] 2)) #[(v) "\302\303\" !\207" [current-monad v tbl :m-return] 3] >>= ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#9=#:--cl-letf-bound-- #10=#:--cl-letf-save-- >>= fmakunbound] 2)) #[(v f) "\303\304\" \n\"\207" [current-monad v f tbl :m-bind] 3] m-plus ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#11=#:--cl-letf-bound-- #12=#:--cl-letf-save-- m-plus fmakunbound] 2)) #[(mv1 mv2) "\303\304\" \n\"\207" [current-monad mv1 mv2 tbl :m-plus] 3] #[(&rest #13=#:G62130) "G\306 \307\"\2037\310\311!\211L\210\310\312!\211\nJ\313\234L\210\314\f\211A@)\315\316\317\320\321 D\321\nD\322\257E\"*\202<\323\324 \315#)\207" [#13# #14=#:G62131 #15=#:--cl-lambda-seq-as-sym62135-- #16=#:--cl-a-case-- it x arity-match (1 exactly) make-symbol "--lambda-seq-as-sym62135--" "--a-case--" 0 m-bind lambda (&rest --cl-rest--) apply #[(#17=#:G62148 #18=#:G62149 &rest #19=#:G62139) "G\306 \307\"\203\302J\310\234\311\f@\303JD
JB!*\202$\312\313 \314#)\207" [#19# #20=#:G62140 #21=#:--cl-lambda-seq-as-sym62144-- #22=#:--cl-component-- it #17# arity-match (1 exactly) 0 m-return error #23="Unable to find an arity match for %d args in fn %s." lambda] 4] quote --cl-rest-- error #23#] 10] #8# #9# #10# #11# #12# ac] 4] tbl :m-zero monad\? error #7# fboundp m-bind ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#1# #2# m-bind fmakunbound] 2)) #[(v f) "\303\304\" \n\"\207" [current-monad v f tbl :m-bind] 3] m-return ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#3# #24=#:--cl-letf-save-- m-return fmakunbound] 2)) #[(v) "\302\303\" !\207" [current-monad v tbl :m-return] 3] >>= ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#25=#:--cl-letf-bound-- #26=#:--cl-letf-save-- >>= fmakunbound] 2)) #[(v f) "\303\304\" \n\"\207" [current-monad v f tbl :m-bind] 3] m-plus ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#27=#:--cl-letf-bound-- #28=#:--cl-letf-save-- m-plus fmakunbound] 2)) #[(mv1 mv2) "\303\304\" \n\"\207" [current-monad mv1 mv2 tbl :m-plus] 3] #[(&rest #29=#:G62121) "G\305 \306\"\203\302J\307\234\310\f@@\303JDC!*\202#\311\312 \313#)\207" [#29# #30=#:G62122 #31=#:--cl-lambda-seq-as-sym62126-- #32=#:--cl-q-- alist arity-match (1 exactly) 0 m-return error #23# lambda] 4] #24# #25# #26# #27# #28# alist x] 6])
(defalias 'generate-conditions>> #[(&rest rest) "\301\302\303\"!\207" [rest generate-conditions apply alist>>] 4])
(defalias 'sort-condition #[(condition-list key) "\301\302\"\207" [condition-list functional-sort #[(a b) "\303 \"\303\n \"W\207" [a key b alist] 4]] 3])
(defalias 'group-by-condition #[(condition-list key &optional randomize) "\301\302\303\304\305#\"\207" [condition-list mapcar cadr foldl #[(it ac) "\304 \"\305 \n#)\207" [it key val ac alist alist-cons] 4] nil] 6])
(defalias 'ungroup #[(grouped-condition-list) "\301!\207" [grouped-condition-list flatten-once] 2])
(defalias 'add-permutations #[(conditions-list condition-name values) "\306 \307\"\310 !\204\311\312!\210\313\314!\211\205\314K\315\216\314\316M\210\313\317!\211\205,\317K\320\216\317\321M\210\313\322!\211\205?\322K\323\216\322\324M\210\313\325!\211\205R\325K\326\216\325\327M\210\314\330\".\207" [monad-seq current-monad m-zero #1=#:--cl-letf-bound-- #2=#:--cl-letf-save-- #3=#:--cl-letf-bound-- tbl :m-zero monad\? error "Expected a monad in an mlet or similar form. \nA monad is a hash table with m-return and m-bind forms." fboundp m-bind ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#1# #2# m-bind fmakunbound] 2)) #[(v f) "\303\304\" \n\"\207" [current-monad v f tbl :m-bind] 3] m-return ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#3# #4=#:--cl-letf-save-- m-return fmakunbound] 2)) #[(v) "\302\303\" !\207" [current-monad v tbl :m-return] 3] >>= ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#5=#:--cl-letf-bound-- #6=#:--cl-letf-save-- >>= fmakunbound] 2)) #[(v f) "\303\304\" \n\"\207" [current-monad v f tbl :m-bind] 3] m-plus ((byte-code "\203 \302 M\210\202\303\302!\210\302\207" [#7=#:--cl-letf-bound-- #8=#:--cl-letf-save-- m-plus fmakunbound] 2)) #[(mv1 mv2) "\303\304\" \n\"\207" [current-monad mv1 mv2 tbl :m-plus] 3] #[(&rest #9=#:G62150) "G\305 \306\"\2032\307\310!\211L\210\307\311!\211\nJ\312\234L\210\313\f\314\315\316\317\320 D\320\nD\321\257E\"*\2027\322\323 \314#)\207" [#9# #10=#:G62151 #11=#:--cl-lambda-seq-as-sym62155-- #12=#:--cl-c-- values arity-match (1 exactly) make-symbol "--lambda-seq-as-sym62155--" "--c--" 0 m-bind lambda (&rest --cl-rest--) apply #[(#13=#:G62168 #14=#:G62169 &rest #15=#:G62159) "G\306 \307\"\203\302J\310\234\311\312\fJ
\303J#!*\202#\313\314 \315#)\207" [#15# #16=#:G62160 #17=#:--cl-lambda-seq-as-sym62164-- #18=#:--cl-v-- #13# condition-name arity-match (1 exactly) 0 m-return alist>> error #19="Unable to find an arity match for %d args in fn %s." lambda] 5] quote --cl-rest-- error #19#] 10] #4# #5# #6# #7# #8# conditions-list] 4])
(defalias 'keyword->string #[(kw) "\302\303\"\211\304 GO)\207" [kw s format "%s" 1] 4])
(defalias 'condition->filename #[(condition) "\306\211\307 B\211\211A@\310\n! B)\311 \210 \211A@\211G B)\312 B\313 \210 \211A@ \211A@ \211A@\f\f
\fO B+ @*\207" [*retain-stack* *stack* #1=#:stack-temp-162171 #2=#:stack-temp-162173 #3=#:stack-temp-362177 #4=#:stack-temp-262176 nil (let ((keys (mapcar #'car condition))) (foldl (lambda (it ac) (typecase (cadr it) (number (concatf (list ac "=%s=%0.6d") (keyword->string (car it)) (cadr it))) (string (concatf (list ac "=%s=%s") (keyword->string (car it)) (cadr it))))) "" condition)) eval stack-dup- 1 stack-swap- #5=#:stack-temp-162175] 5])
(defalias 'dsf-prep #[(str) "\301\302\303!\304#\301\305\304#)\207" [str replace-regexp-in-string rxq ".txt" "" "^.*/"] 5])
(defalias 'string->kw #[(s) "\301\302P!\207" [s read ":"] 3])
#@99 dsf decomposes the filename in STR into an alist.

(fn STR &optional (FIELD nil) (SEP (rxq "=")))
(defalias 'dsf #[(str &rest #1=#:--cl-rest--) "\211A@\203\211A@\202\306\307!\203$\310\311\312\313G\\D\"\210\314\315 !\n\"\316\317\320\f!\"\316\321\322\f!\"\323
\" \203M\324 \"\202O.\207" [#1# field sep str parts fields rxq "=" signal wrong-number-of-arguments dsf 3 split-string dsf-prep mapcar string->kw even-indexed-elements read odd-indexed-elements zip alist vals] 5 (#$ . 17008)])
#@99 dsf decomposes the filename in STR into an alist.

(fn STR &optional (FIELD nil) (SEP (rxq "=")))
(defalias 'dsf-raw #[(str &rest #1=#:--cl-rest--) "\211A@\203\211A@\202\306\307!\203$\310\311\312\313G\\D\"\210\314\315 !\n\"\316\317\320\f!\"\321\f!\322
\" \203J\323 \"\202L.\207" [#1# field sep str parts fields rxq "=" signal wrong-number-of-arguments dsf-raw 3 split-string dsf-prep mapcar string->kw even-indexed-elements odd-indexed-elements zip alist vals] 5 (#$ . 17528)])
#@79 Not documented

(fn ALIST &optional (ORDER (alist-fields alist)) (DELIM "="))
(defalias 'undsf #[(alist &rest #1=#:--cl-rest--) "\203\f\211A@\202\304 !\203\211A@\202\305\203,\306\307\310\311G\\D\"\210\312\313\314\315 # \"*\207" [#1# alist order delim alist-fields "=" signal wrong-number-of-arguments undsf 3 join foldl #[(pair flat) "\303\304 @!\305 \211A@)!D\"\207" [flat pair x append kw->string to-string] 6] nil] 5 (#$ . 18041)])
#@79 Not documented

(fn ALIST &optional (ORDER (alist-fields alist)) (DELIM "="))
(defalias 'undsf-camel #[(alist &rest #1=#:--cl-rest--) "\203\f\211A@\202\304 !\203\211A@\202\305\203,\306\307\310\311G\\D\"\210\312\313\314\315 # \"*\207" [#1# alist order delim alist-fields "=" signal wrong-number-of-arguments undsf-camel 3 join foldl #[(pair flat) "\303\304\305 @!!\306 \211A@)!D\"\207" [flat pair x append camel-case kw->string to-string] 6] nil] 5 (#$ . 18502)])
(defalias 'kw->string #[(kw) "\302\303\"\211\304 GO)\207" [kw s format "%s" 1] 4])
(defalias 'print-condition #[(condition &optional handlers) "\301\302\303\"\304\"\207" [condition join mapcar #[(condition) "@\306\n \"\211\203 \211A@)!\202\211A@)\307\310\311 !
#+\207" [condition key handlers handler x val alist format "%s: %s" kw->string] 5] ", "] 4])
(defalias 'generate-instructions #[(condition handler-alist final-volume volume-units) "\306\307\310!\311\312\313\"\314\"\315 \n\316B\" !\317\211\n
B\320
B\321 \210
\211A@
\211A@\306\"
B*\322 \210\323 \210\324
B\321 \210\325 \210
@*%\207" [condition *units-map* volume-units final-volume *retain-stack* *stack* format "for %s\n %s and fill to %f %sL\n" print-condition join mapcar #[(condition) "@\305\n \"\211\211A@)!*\207" [condition key handler-alist handler x alist] 4] "\n " alist-in (:in) nil "%s" stack-swap- stack-dup- stack-length- 1 stack-substring- #1=#:stack-temp-262180 #2=#:stack-temp-162179] 8])
(defalias 'to-string #[(x) "\301\302\"\207" [x format "%s"] 3])
(defalias 'dilution-volume #[(target-volume stock-concentration desired-concentration) " _\n\245\207" [target-volume desired-concentration stock-concentration] 2])
(defalias 'concentration-handler #[(substance desired-concentration stock final-volume units) "\306 \n#\307\310\311\f
\312B\" !\313\211
B\314B\315 \210\211A@\211A@\307\"B*\316 \210\317 \210\320B\315 \210\321 \210@*$)\207" [final-volume stock desired-concentration dv *units-map* units dilution-volume format "Mix %f %sL of %s stock" alist-in (:in) nil "%s" stack-swap- stack-dup- stack-length- 1 stack-substring- *retain-stack* *stack* #1=#:stack-temp-262183 #2=#:stack-temp-162182 substance] 6])
(defalias 'hpo-handler #[(&rest #1=#:hpo-handler-arglist62184) "\301\302\303#\207" [#1# apply concentration-handler "HPO"] 4])
(defalias 'da-handler #[(&rest #1=#:da-handler-arglist62185) "\301\302\303#\207" [#1# apply concentration-handler "Dopamine"] 4])
(defalias 'mcs-handler #[(&rest #1=#:mcs-handler-arglist62186) "\301\302\303#\207" [#1# apply concentration-handler "MCS"] 4])
#@42 Concentration of concentrated HPO Stock.
(defvar concentrated-hpo-stock 9.791 (#$ . 21154))
(byte-code "\301\302\303\304!\305\303\306!#!\210\307B\310\307!\204\311\307\303\312!\"\210\301\207" [current-load-list in-milli dilution-volume from-milli 50 9.791 1000 *final-volume-for-mixing* default-boundp set-default 25] 6)
(defalias 'default-da-handler #[(&rest #1=#:default-da-handler-arglist62187) "\302\303\304\305\306! \307E\"\"\207" [#1# *final-volume-for-mixing* apply da-handler append from-milli 1 :micro] 7])
(defalias 'default-hpo-handler #[(&rest #1=#:default-hpo-handler-arglist62188) "\302\303\304\305\306! \307E\"\"\207" [#1# *final-volume-for-mixing* apply hpo-handler append from-milli 1000 :micro] 7])
(defalias 'default-mcs-handler #[(&rest #1=#:default-mcs-handler-arglist62189) "\302\303\304\305\306! \307E\"\"\207" [#1# *final-volume-for-mixing* apply mcs-handler append from-milli 100 :micro] 7])
(defalias 'default-hpo-handler-micro #[(&rest #1=#:default-hpo-handler-micro-decorated-args62190) "\302\303\304 @! A)B\"\207" [#1# arglist apply default-hpo-handler from-micro] 4])
Something went wrong with that request. Please try again.