Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 57 lines (51 sloc) 18.217 kb
0f5cf97 random-access-lists added
Vincent Toups authored
1 ;ELC
d017c10 ptbl update
Vincent Toups authored
2 ;;; Compiled by toups@deluge on Thu Dec 8 12:59:11 2011
0f5cf97 random-access-lists added
Vincent Toups authored
3 ;;; from file /home/toups/elisp/utils/parse-sombers-lab-files.el
4 ;;; in Emacs version 23.2.1
5 ;;; with all optimizations.
6
7 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
8
9 ;;; This file does not contain utf-8 non-ASCII characters,
10 ;;; and so can be loaded in Emacs versions earlier than 23.
11
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14
15
d017c10 ptbl update
Vincent Toups authored
16 (byte-code "\306\307!\210\306\310!\210\311B\312\311!\204\313\311\314\"\210\315\316!\211\nL\210\315\317!\211\320 J\321\"L\210\322 J!\2046\323\324!\210\315\325!\315\326!\315\327!\315\330!+\211,\314L\210+\314L\210 \314L\210\f\314L\210,\331\332\333\334\335\fD\335 D\335+D\335,D\335 D\335 D\336\257 EL\210+\331\332\333\337\335\fD\335 D\335+D\335,D\335 D\335 D\336\257 EL\210 \331\332\340\333\341\335\fD\335 D\335+D\335,D\335 D\335 D\336\257 FL\210\f\331\332\333\342\335\fD\335 D\335+D\335,D\335 D\335 D\336\257 EL\210\343\344\345\346\347\350\351&. \352\311 \"\207" [current-load-list #:--cl-current-monad-- monad-parse #:--cl-m-zero-- #:--cl---cl-var--79576-- #:--cl---cl-var--79577-- require better-monad-parse scripting =units default-boundp set-default nil make-symbol "--current-monad--" "--m-zero--" 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." "----cl-var--79579--" "----cl-var--79578--" "----cl-var--79577--" "----cl-var--79576--" lambda (&rest --cl-rest--) apply #[(#:G79580 #:G79581 #:G79582 #:G79583 #:G79584 #1=#:G79585 mv1 mv2) "\303J\304\" \n\"\207" [#1# mv1 mv2 tbl :m-plus] 3] quote --cl-rest-- #[(#:G79586 #:G79587 #:G79588 #:G79589 #:G79590 #2=#:G79591 v f) "\303J\304\" \n\"\207" [#2# v f tbl :m-bind] 3] "Not documented\n\n(fn &rest V)" #[(#:G79592 #:G79593 #:G79594 #:G79595 #:G79596 #3=#:G79597 &rest v) "\302\303J\304\" \"\207" [#3# v apply tbl :m-return] 4] #[(#:G79598 #:G79599 #:G79600 #:G79601 #:G79602 #4=#:G79603 v f) "\303J\304\" \n\"\207" [#4# v f tbl :m-bind] 3] =>string "M" "uM" "nM" "L" "mL" "nL" defalias #:--cl---cl-var--79578-- #:--cl---cl-var--79579--] 14)
0f5cf97 random-access-lists added
Vincent Toups authored
17 (defalias 'char->trial #[(a) ";\203 \301\302\303\"@!\207\304Z\207" [a char->trial coerce list 97] 4])
d017c10 ptbl update
Vincent Toups authored
18 (byte-code "\306B\307\306!\204\310\306\311\"\210\312\313!\211\nL\210\312\314!\211\315 J\316\"L\210\317 J!\204.\320\321!\210\312\322!\312\323!\312\324!\312\325!@\211A\311L\210@\311L\210 \311L\210\f\311L\210A\326\327\330\331\332\fD\332 D\332@D\332AD\332 D\332 D\333\257 EL\210@\326\327\330\334\332\fD\332 D\332@D\332AD\332 D\332 D\333\257 EL\210 \326\327\335\330\336\332\fD\332 D\332@D\332AD\332 D\332 D\333\257 FL\210\f\326\327\330\337\332\fD\332 D\332@D\332AD\332 D\332 D\333\257 EL\210\340\341 J\"\342B!\326\327\330\343\332\fD\332 D\332@D\332AD\332 D\332 D\333\257 E\".\344\306\"\210\345B\307\345!\204\310\345\311\"\210\312\313!\211C\nL\210\312\314!\211D\315CJ\316\"L\210\317CJ!\2042\320\321!\210\312\346!\312\347!\312\350!\312\351!EFG\211H\311L\210G\311L\210F\311L\210E\311L\210H\326\327\330\352\332ED\332FD\332GD\332HD\332DD\332CD\333\257 EL\210G\326\327\330\353\332ED\332FD\332GD\332HD\332DD\332CD\333\257 EL\210F\326\327\335\330\354\332ED\332FD\332GD\332HD\332DD\332CD\333\257 FL\210E\326\327\330\355\332ED\332FD\332GD\332HD\332DD\332CD\333\257 EL\210\356\357!.%\344\345%\"\210\360B\307\360!\204\310\360\311\"\210\312\313!\211I\nL\210\312\314!\211J\315IJ\316\"L\210\317IJ!\204)\320\321!\210\312\361!\312\362!\312\363!\312\364!KLM\211N\311L\210M\311L\210L\311L\210K\311L\210N\326\327\330\365\332KD\332LD\332MD\332ND\332JD\332ID\333\257 EL\210M\326\327\330\366\332KD\332LD\332MD\332ND\332JD\332ID\333\257 EL\210L\326\327\335\330\367\332KD\332LD\332MD\332ND\332JD\332ID\333\257 FL\210K\326\327\330\370\332KD\332LD\332MD\332ND\332JD\332ID\333\257 EL\210\371\372\373\".0\344\3600\"\210\374B\307\374!\204\376\310\374\311\"\210\312\313!\211O\nL\210\312\314!\211P\315OJ\316\"L\210\317OJ!\204!\320\321!\210\312\375!\312\376!\312\377!\312\201\\!QRS\211T\311L\210S\311L\210R\311L\210Q\311L\210T\326\327\330\201]\332QD\332RD\332SD\332TD\332PD\332OD\333\257 EL\210S\326\327\330\201^\332QD\332RD\332SD\332TD\332PD\332OD\333\257 EL\210R\326\327\335\330\201_\332QD\332RD\332SD\332TD\332PD\332OD\333\257 FL\210Q\326\327\330\201`\332QD\332RD\332SD\332TD\332PD\332OD\333\257 EL\210\371\201a\201b\".<\344\374<\"\210\201[B\307\201[!\204\n\310\201[\311\"\210\312\313!\211U\nL\210\312\314!\211V\315UJ\316\"L\210\317UJ!\204-\320\321!\210\312\201c!\312\201d!\312\201e!\312\201f!WXY\211Z\311L\210Y\311L\210X\311L\210W\311L\210Z\326\327\330\201g\332WD\332XD\332YD\332ZD\332VD\332UD\333\257 EL\210Y\326\327\330\201h\332WD\332XD\332YD\332ZD\332VD\332UD\333\257 EL\210X\326\327\335\330\201i\332WD\332XD\332YD\332ZD\332VD\332UD\333\257 FL\210W\326\327\330\201j\332WD\332XD\332YD\332ZD\332VD\332UD\333\257 EL\210\356\201k!.[\344\201[[\"\207" [current-load-list #:--cl-current-monad-- monad-parse #:--cl-m-zero-- #:--cl---cl-var--79604-- #:--cl---cl-var--79605-- =maybe-letter->trial default-boundp set-default nil make-symbol "--current-monad--" "--m-zero--" 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." "----cl-var--79607--" "----cl-var--79606--" "----cl-var--79605--" "----cl-var--79604--" lambda (&rest --cl-rest--) apply #[(#:G79608 #:G79609 #:G79610 #:G79611 #:G79612 #1=#:G79613 mv1 mv2) "\303J\304\" \n\"\207" [#1# mv1 mv2 tbl :m-plus] 3] quote --cl-rest-- #[(#:G79614 #:G79615 #:G79616 #:G79617 #:G79618 #2=#:G79619 v f) "\303J\304\" \n\"\207" [#2# v f tbl :m-bind] 3] "Not documented\n\n(fn &rest V)" #[(#:G79620 #:G79621 #:G79622 #:G79623 #:G79624 #3=#:G79625 &rest v) "\302\303J\304\" \"\207" [#3# v apply tbl :m-return] 4] #[(#:G79626 #:G79627 #:G79628 #:G79629 #:G79630 #4=#:G79631 v f) "\303J\304\" \n\"\207" [#4# v f tbl :m-bind] 3] gethash :m-bind =>maybe #[(#:G79632 #5=#:G79633 #:G79634 #:G79635 #:G79636 #:G79637 c) "\303\304!\211 L\210\nJJ\203\305J!\202\306!)\207" [#:--cl-c-- c #5# make-symbol "--c--" char->trial 0] 4] defalias =_ "----cl-var--79641--" "----cl-var--79640--" "----cl-var--79639--" "----cl-var--79638--" #[(#:G79642 #:G79643 #:G79644 #:G79645 #:G79646 #6=#:G79647 mv1 mv2) "\303J\304\" \n\"\207" [#6# mv1 mv2 tbl :m-plus] 3] #[(#:G79648 #:G79649 #:G79650 #:G79651 #:G79652 #7=#:G79653 v f) "\303J\304\" \n\"\207" [#7# v f tbl :m-bind] 3] #[(#:G79654 #:G79655 #:G79656 #:G79657 #:G79658 #8=#:G79659 &rest v) "\302\303J\304\" \"\207" [#8# v apply tbl :m-return] 4] #[(#:G79660 #:G79661 #:G79662 #:G79663 #:G79664 #9=#:G79665 v f) "\303J\304\" \n\"\207" [#9# v f tbl :m-bind] 3] =>string "_" =rotenone "----cl-var--79669--" "----cl-var--79668--" "----cl-var--79667--" "----cl-var--79666--" #[(#:G79670 #:G79671 #:G79672 #:G79673 #:G79674 #10=#:G79675 mv1 mv2) "\303J\304\" \n\"\207" [#10# mv1 mv2 tbl :m-plus] 3] #[(#:G79676 #:G79677 #:G79678 #:G79679 #:G79680 #11=#:G79681 v f) "\303J\304\" \n\"\207" [#11# v f tbl :m-bind] 3] #[(#:G79682 #:G79683 #:G79684 #:G79685 #:G79686 #12=#:G79687 &rest v) "\302\303J\304\" \"\207" [#12# v apply tbl :m-return] 4] #[(#:G79688 #:G79689 #:G79690 #:G79691 #:G79692 #13=#:G79693 v f) "\303J\304\" \n\"\207" [#13# v f tbl :m-bind] 3] =>stringi "rotenone" "rot" =saline "----cl-var--79697--" "----cl-var--79696--" "----cl-var--79695--" #:--cl---cl-var--79606-- #:--cl---cl-var--79607-- =alpha-lower #:--cl-current-monad-- #:--cl-m-zero-- #:--cl---cl-var--79638-- #:--cl---cl-var--79639-- #:--cl---cl-var--79640-- #:--cl---cl-var--79641-- #:--cl-current-monad-- #:--cl-m-zero-- #:--cl---cl-var--79666-- #:--cl---cl-var--79667-- #:--cl---cl-var--79668-- #:--cl---cl-var--79669-- #:--cl-current-monad-- #:--cl-m-zero-- #:--cl---cl-var--79694-- #:--cl---cl-var--79695-- #:--cl---cl-var--79696-- #:--cl---cl-var--79697-- #:--cl-current-monad-- #:--cl-m-zero-- #:--cl---cl-var--79722-- #:--cl---cl-var--79723-- #:--cl---cl-var--79724-- #:--cl---cl-var--79725-- =/ "----cl-var--79694--" #[(#:G79698 #:G79699 #:G79700 #:G79701 #:G79702 #14=#:G79703 mv1 mv2) "\303J\304\" \n\"\207" [#14# mv1 mv2 tbl :m-plus] 3] #[(#:G79704 #:G79705 #:G79706 #:G79707 #:G79708 #15=#:G79709 v f) "\303J\304\" \n\"\207" [#15# v f tbl :m-bind] 3] #[(#:G79710 #:G79711 #:G79712 #:G79713 #:G79714 #16=#:G79715 &rest v) "\302\303J\304\" \"\207" [#16# v apply tbl :m-return] 4] #[(#:G79716 #:G79717 #:G79718 #:G79719 #:G79720 #17=#:G79721 v f) "\303J\304\" \n\"\207" [#17# v f tbl :m-bind] 3] "saline" "sal" "----cl-var--79725--" "----cl-var--79724--" "----cl-var--79723--" "----cl-var--79722--" #[(#:G79726 #:G79727 #:G79728 #:G79729 #:G79730 #18=#:G79731 mv1 mv2) "\303J\304\" \n\"\207" [#18# mv1 mv2 tbl :m-plus] 3] #[(#:G79732 #:G79733 #:G79734 #:G79735 #:G79736 #19=#:G79737 v f) "\303J\304\" \n\"\207" [#19# v f tbl :m-bind] 3] #[(#:G79738 #:G79739 #:G79740 #:G79741 #:G79742 #20=#:G79743 &rest v) "\302\303J\304\" \"\207" [#20# v apply tbl :m-return] 4] #[(#:G79744 #:G79745 #:G79746 #:G79747 #:G79748 #21=#:G79749 v f) "\303J\304\" \n\"\207" [#21# v f tbl :m-bind] 3] "/"] 14)
19 (defalias '=>pluck #[(n) "\306\307!\211 L\210\306\310!\211 L\210\306\311!\211\312\nJ\313\"L\210\314\nJ!\204'\315\316!\210\306\317!\306\320!\306\321!\306\322!!\"\211#\323L\210\"\323L\210!\323L\210 \323L\210#\324\325\326\327\330 D\330!D\330\"D\330#D\330\fD\330\nD\330D\331\257\nEL\210\"\324\325\326\332\330 D\330!D\330\"D\330#D\330\fD\330\nD\330D\331\257\nEL\210!\324\325\333\326\334\330 D\330!D\330\"D\330#D\330\fD\330\nD\330D\331\257\nFL\210 \324\325\326\335\330 D\330!D\330\"D\330#D\330\fD\330\nD\330D\331\257\nEL\210\336\337\nJ\"$\324\325\326\340\330 D\330!D\330\"D\330#D\330\fD\330\nD\330D\331\257\nE\".\207" [#1=#:--cl-n-- n #2=#:--cl-current-monad-- monad-parse #3=#:--cl-m-zero-- #4=#:--cl---cl-var--79750-- make-symbol "--n--" "--current-monad--" "--m-zero--" tbl :m-zero monad\? error #5="Expected a monad in an mlet or similar form. \nA monad is a hash table with m-return and m-bind forms." "----cl-var--79753--" "----cl-var--79752--" "----cl-var--79751--" "----cl-var--79750--" nil lambda #6=(&rest --cl-rest--) apply #[(#7=#:G79754 #8=#:G79755 #9=#:G79756 #10=#:G79757 #11=#:G79758 #12=#:G79759 #13=#:G79760 mv1 mv2) "\303J\304\" \n\"\207" [#12# mv1 mv2 tbl :m-plus] 3] quote --cl-rest-- #[(#14=#:G79761 #15=#:G79762 #16=#:G79763 #17=#:G79764 #18=#:G79765 #19=#:G79766 #20=#:G79767 v f) "\303J\304\" \n\"\207" [#19# v f tbl :m-bind] 3] "Not documented\n\n(fn &rest V)" #[(#21=#:G79768 #22=#:G79769 #23=#:G79770 #24=#:G79771 #25=#:G79772 #26=#:G79773 #27=#:G79774 &rest v) "\302\303J\304\" \"\207" [#26# v apply tbl :m-return] 4] #[(#28=#:G79775 #29=#:G79776 #30=#:G79777 #31=#:G79778 #32=#:G79779 #33=#:G79780 #34=#:G79781 v f) "\303J\304\" \n\"\207" [#33# v f tbl :m-bind] 3] gethash :m-bind #[(#35=#:G79862 #36=#:G79863 #37=#:G79864 #38=#:G79865 #39=#:G79866 #40=#:G79867 #41=#:G79868 in) "\306\307!\211 L\210\306\310!\211\311J J\"L\210\306\312!\211 L\210\306\313!\211$\314\fJ\315\"L\210\316\fJ!\2045\317\320!\210\306\321!\306\322!\306\323!\306\324!%&'\211(\325L\210'\325L\210&\325L\210%\325L\210(\326\327\330\331\332%D\332&D\332'D\332(D\332$D\332\fD\332\nD\332D\332)D\332*D\332+D\332,D\332-D\332.D\332 D\333\257EL\210'\326\327\330\334\332%D\332&D\332'D\332(D\332$D\332\fD\332\nD\332D\332)D\332*D\332+D\332,D\332-D\332.D\332 D\333\257EL\210&\326\327\335\330\336\332%D\332&D\332'D\332(D\332$D\332\fD\332\nD\332D\332)D\332*D\332+D\332,D\332-D\332.D\332 D\333\257FL\210%\326\327\330\337\332%D\332&D\332'D\332(D\332$D\332\fD\332\nD\332D\332)D\332*D\332+D\332,D\332-D\332.D\332 D\333\257EL\210\340\341\fJ\"\342\nJ!\326\327\330\343\332%D\332&D\332'D\332(D\332$D\332\fD\332\nD\332D\332)D\332*D\332+D\332,D\332-D\332.D\332 D\333\257E\".\207" [#42=#:--cl-in-- in #43=#:--cl-new-- #41# #44=#:--cl-current-monad-- monad-parse make-symbol "--in--" "--new--" pluck "--current-monad--" "--m-zero--" tbl :m-zero monad\? error #5# "----cl-var--79785--" "----cl-var--79784--" "----cl-var--79783--" "----cl-var--79782--" nil lambda #6# apply #[(#45=#:G79786 #46=#:G79787 #47=#:G79788 #48=#:G79789 #49=#:G79790 #50=#:G79791 #51=#:G79792 #52=#:G79793 #53=#:G79794 #54=#:G79795 #55=#:G79796 #56=#:G79797 #57=#:G79798 #58=#:G79799 #59=#:G79800 mv1 mv2) "\303J\304\" \n\"\207" [#50# mv1 mv2 tbl :m-plus] 3] quote --cl-rest-- #[(#60=#:G79801 #61=#:G79802 #62=#:G79803 #63=#:G79804 #64=#:G79805 #65=#:G79806 #66=#:G79807 #67=#:G79808 #68=#:G79809 #69=#:G79810 #70=#:G79811 #71=#:G79812 #72=#:G79813 #73=#:G79814 #74=#:G79815 v f) "\303J\304\" \n\"\207" [#65# v f tbl :m-bind] 3] "Not documented\n\n(fn &rest V)" #[(#75=#:G79816 #76=#:G79817 #77=#:G79818 #78=#:G79819 #79=#:G79820 #80=#:G79821 #81=#:G79822 #82=#:G79823 #83=#:G79824 #84=#:G79825 #85=#:G79826 #86=#:G79827 #87=#:G79828 #88=#:G79829 #89=#:G79830 &rest v) "\302\303J\304\" \"\207" [#80# v apply tbl :m-return] 4] #[(#90=#:G79831 #91=#:G79832 #92=#:G79833 #93=#:G79834 #94=#:G79835 #95=#:G79836 #96=#:G79837 #97=#:G79838 #98=#:G79839 #99=#:G79840 #100=#:G79841 #101=#:G79842 #102=#:G79843 #103=#:G79844 #104=#:G79845 v f) "\303J\304\" \n\"\207" [#95# v f tbl :m-bind] 3] gethash :m-bind =>set-input #[(#105=#:G79847 #106=#:G79848 #107=#:G79849 #108=#:G79850 #109=#:G79851 #110=#:G79852 #111=#:G79853 #112=#:G79854 #113=#:G79855 #114=#:G79856 #115=#:G79857 #116=#:G79858 #117=#:G79859 #118=#:G79860 #119=#:G79861 #120=#:id79846) "J J!\207" [#106# #111#] 2] #121=#:--cl-m-zero-- #122=#:--cl---cl-var--79782-- #123=#:--cl---cl-var--79783-- #124=#:--cl---cl-var--79784-- #125=#:--cl---cl-var--79785-- #35# #36# #37# #38# #39# #40#] 23] #126=#:--cl---cl-var--79751-- #127=#:--cl---cl-var--79752-- #128=#:--cl---cl-var--79753-- =input] 15])
20 (byte-code "\306B\307\306!\204\310\306\311\"\210\312\313!\211\nL\210\312\314!\211\315 J\316\"L\210\317 J!\204.\320\321!\210\312\322!\312\323!\312\324!\312\325!&\211'\311L\210&\311L\210 \311L\210\f\311L\210'\326\327\330\331\332\fD\332 D\332&D\332'D\332 D\332 D\333\257 EL\210&\326\327\330\334\332\fD\332 D\332&D\332'D\332 D\332 D\333\257 EL\210 \326\327\335\330\336\332\fD\332 D\332&D\332'D\332 D\332 D\333\257 FL\210\f\326\327\330\337\332\fD\332 D\332&D\332'D\332 D\332 D\333\257 EL\210\340\341 J\"(\326\327\330\342\332\fD\332 D\332&D\332'D\332 D\332 D\333\257 E\".\343\306\"\210\344\345!\207" [current-load-list #:--cl-current-monad-- monad-parse #:--cl-m-zero-- #:--cl---cl-var--79869-- #:--cl---cl-var--79870-- =stim-desc default-boundp set-default nil make-symbol "--current-monad--" "--m-zero--" 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." "----cl-var--79872--" "----cl-var--79871--" "----cl-var--79870--" "----cl-var--79869--" lambda #1=(&rest --cl-rest--) apply #[(#:G79873 #:G79874 #:G79875 #:G79876 #:G79877 #2=#:G79878 mv1 mv2) "\303J\304\" \n\"\207" [#2# mv1 mv2 tbl :m-plus] 3] quote --cl-rest-- #[(#:G79879 #:G79880 #:G79881 #:G79882 #:G79883 #3=#:G79884 v f) "\303J\304\" \n\"\207" [#3# v f tbl :m-bind] 3] "Not documented\n\n(fn &rest V)" #[(#:G79885 #:G79886 #:G79887 #:G79888 #:G79889 #4=#:G79890 &rest v) "\302\303J\304\" \"\207" [#4# v apply tbl :m-return] 4] #[(#:G79891 #:G79892 #:G79893 #:G79894 #:G79895 #5=#:G79896 v f) "\303J\304\" \n\"\207" [#5# v f tbl :m-bind] 3] gethash :m-bind #[(#6=#:G79948 #7=#:G79949 #8=#:G79950 #9=#:G79951 #10=#:G79952 #11=#:G79953 current) "\306\307!\211 L\210\310\311\nJ\" \312\313\314\315\316D\316\fD\316 D\316D\316D\316D\316\nD\317\257\nE\")\207" [#:--cl-current-- current #11# =_ #6# #7# make-symbol "--current--" gethash :m-bind lambda #1# apply #[(#12=#:G79941 #13=#:G79942 #14=#:G79943 #15=#:G79944 #16=#:G79945 #17=#:G79946 #18=#:G79947 #:id79897) "\306\307J\" \310\311\312\313\314\nD\314 D\314\fD\314 D\314D\314D\314D\315\257\nE\"\207" [#18# =number #12# #13# #14# #15# gethash :m-bind lambda #1# apply #[(#19=#:G79934 #20=#:G79935 #21=#:G79936 #22=#:G79937 #23=#:G79938 #24=#:G79939 #25=#:G79940 pulses) "\306\307!\211 L\210\310\311\nJ\" \312\313\314\315\316D\316\fD\316 D\316D\316D\316D\316D\316\nD\317\257 E\")\207" [#:--cl-pulses-- pulses #25# =_ #19# #20# make-symbol "--pulses--" gethash :m-bind lambda #1# apply #[(#26=#:G79926 #27=#:G79927 #28=#:G79928 #29=#:G79929 #30=#:G79930 #31=#:G79931 #32=#:G79932 #33=#:G79933 #:id79898) "\306\307J\" \310\311\312\313\314\nD\314 D\314\fD\314 D\314D\314D\314D\314D\315\257 E\"\207" [#33# =number #26# #27# #28# #29# gethash :m-bind lambda #1# apply #[(#34=#:G79918 #35=#:G79919 #36=#:G79920 #37=#:G79921 #38=#:G79922 #39=#:G79923 #40=#:G79924 #41=#:G79925 freq) "\306\307!\211 L\210\310\311\nJ\"\312 !\313\314\315\316\317D\317\fD\317 D\317D\317D\317D\317D\317D\317\nD\320\257\fE\")\207" [#:--cl-freq-- freq #41# =_ #34# #35# make-symbol "--freq--" gethash :m-bind =>maybe lambda #1# apply #[(#42=#:G79909 #43=#:G79910 #44=#:G79911 #45=#:G79912 #46=#:G79913 #47=#:G79914 #48=#:G79915 #49=#:G79916 #50=#:G79917 #:id79899) "\306\307J\" \310\311\312\313\314\nD\314 D\314\fD\314 D\314D\314D\314D\314D\314D\315\257\fE\"\207" [#50# =maybe-letter->trial #42# #43# #44# #45# gethash :m-bind lambda #1# apply #[(#51=#:G79900 #52=#:G79901 #53=#:G79902 #:G79903 #54=#:G79904 #:G79905 #:G79906 #:G79907 #:G79908 trial) "\306\307!\211 L\210\nJ\310\311J\312 J\313\fJ\314 J\315\316&\n!)\207" [#:--cl-trial-- trial #54# #53# #52# #51# make-symbol "--trial--" alist>> :trial :current :pulses :freq :type "stim"] 13] quote --cl-rest-- #46# #47# #48# #49#] 16] quote --cl-rest-- #36# #37# #38# #39# #40#] 17] quote --cl-rest-- #30# #31# #32#] 15] quote --cl-rest-- #21# #22# #23# #24#] 16] quote --cl-rest-- #16# #17#] 14] quote --cl-rest-- #8# #9# #10#] 15] defalias provide parse-sombers-lab-files #:--cl---cl-var--79871-- #:--cl---cl-var--79872-- =number] 14)
Something went wrong with that request. Please try again.