;ELC   
;;; compiled by jwz@thalidomide on Thu Dec  2 20:24:40 1993
;;; from file /th/jwz/emacs19/lisp/edebug/edebug-cl-read.el
;;; emacs version 19.9.24 Lucid.
;;; bytecomp version 2.20; 20-oct-93.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(byte-code "АБ!€АВ!€ГД!‡" [require cl cl-read provide edebug-cl-read] 2)
(defconst edebug-readtable (copy-readtable) "\
The modified readtable in use while reading and instrumenting code.")
(byte-code "АБM€АВ!€АГ!€АД!€ЕЖ!¬…ЖЗKM€ИЙM€КЛМ#€КОП#€КРС#€КТУ#€КФХ#€КЦЧ#€ШЩM€ЪЫТЬ$€ЪЫРЭ$€ЮЯM€ЪЫаб$€ЪЫвг$‡" [edebug-wrap-macro-handler #[(char) "А	!Г	ДЕЖЗИЙК\nDЛБFEE!#)‡" [get-macro-character char func set-macro-character byte-compile lambda (stream char) edebug-storing-offsets (1- (point)) funcall function stream edebug-readtable] 11] 63 34 91 fboundp edebug-reader:read-constituent reader:read-constituent edebug-read-constituent #[(stream) "АЋБ`!€В!)‡" [((byte-code "А`!‡" [edebug-store-after-offset] 2)) edebug-store-before-offset edebug-reader:read-constituent stream] 2] set-macro-character 40 #[(stream char) "АВЋГ`S!€ДЕЌ*‡" [nil edebug-read-dotted-list ((byte-code "А`!‡" [edebug-store-after-offset] 2)) edebug-store-before-offset read-list (byte-code "АБДЕЌ€ЖИ\"\nBД\n@<	ЖИ\"€КЛ!*‡" [list nil edebug-read-stack edebug-read-context dotted-pair (byte-code "А	В\"BЄw" [reader:read-from-buffer stream t edebug-read-stack] 3) reader:read-from-buffer stream t edebug-read-dotted-list error "CL read error: illegal dotted pair read syntax"] 3)] 2] edebug-readtable 41 #[(stream char) "Б=«†ВГџ\"‡Е=«ЉВГAџ@¤\"‡ЖЗ!‡" [edebug-read-context list throw read-list edebug-read-stack dotted-pair error "CL read error: `)' doesn't end a list"] 4] 46 #[(stream char) "Б=«„ВГ!€ДБЕ\"‡" [edebug-read-context dotted-pair error "CL read error: no more than one `.' allowed in list" throw nil] 3] 39 #[(stream char) "АЋБ`S!€ВЋБ`!€)ГДЖ\")D‡" [((byte-code "А`!‡" [edebug-store-after-offset] 2)) edebug-store-before-offset ((byte-code "А`!‡" [edebug-store-after-offset] 2)) quote reader:read-from-buffer stream t] 4] 96 #[(stream char) "gАU«‰БЋВ`!€)Г‡ДЋВ`S!€ЕЋВ`!€)ГЖИ\")D‡" [32 ((byte-code "А`!‡" [edebug-store-after-offset] 2)) edebug-store-before-offset \` ((byte-code "А`!‡" [edebug-store-after-offset] 2)) ((byte-code "А`!‡" [edebug-store-after-offset] 2)) reader:read-from-buffer stream t] 4] 44 #[(stream char) "gА=«‰БЋВ`!€)Г‡gД=«©Еu€gА=«‰ЖЋВ`!€)З‡ИЋВ`ЙZ!€КЋВ`!€)ЗЛН\")D‡ОЋВ`S!€ПЋВ`!€)ГЛН\")D‡" [32 ((byte-code "А`!‡" [edebug-store-after-offset] 2)) edebug-store-before-offset \, 64 1 ((byte-code "А`!‡" [edebug-store-after-offset] 2)) \,@ ((byte-code "А`!‡" [edebug-store-after-offset] 2)) 2 ((byte-code "А`!‡" [edebug-store-after-offset] 2)) reader:read-from-buffer stream t ((byte-code "А`!‡" [edebug-store-after-offset] 2)) ((byte-code "А`!‡" [edebug-store-after-offset] 2))] 4] edebug-ensure-n=0 #[(n) "БU®„ВГ\"‡" [n 0 error "Cl reader error: numeric infix argument not allowed %d"] 3] set-dispatch-macro-character 35 #[(stream char n) "А	!€ВЋГ`ДZ!€ЕЋГ`!€ЖЗ!«ѓИЄЃЙ)КМ\")D‡" [edebug-ensure-n=0 n ((byte-code "А`!‡" [edebug-store-after-offset] 2)) edebug-store-before-offset 2 ((byte-code "А`!‡" [edebug-store-after-offset] 2)) featurep cl function* function reader:read-from-buffer stream t] 4] #[(stream char n) "А	!€ВГЕЋЖ`!€ЗГ!*!‡" [edebug-ensure-n=0 n eval t edebug-all-forms ((byte-code "А`!‡" [edebug-store-after-offset] 2)) edebug-store-before-offset edebug-read-and-maybe-wrap-form] 3] edebug-read-feature #[(stream char n flag) "А	!€В!ДЕ\"И!	=«„Є‡К €ЛМН\"*‡" [edebug-ensure-n=0 n reader:original-read stream reader:read-from-buffer t object feature featurep flag edebug-ignore-offset throw reader-ignore nil] 4] 43 #[(stream char n) "А	\nД$‡" [edebug-read-feature stream char n t] 5] 45 #[(stream char n) "А	\nД$‡" [edebug-read-feature stream char n nil] 5]] 5)
(fset 'edebug-read #[(&optional stream) "АЋ	¬…В!ЄЌДЋЗИM€Й!*)‡" [((byte-code "АА‡" [nil edebug-current-offset] 1)) cl-read-active edebug-read1 stream ((byte-code "АБM‡" [reader:read-constituent edebug-reader:read-constituent] 2)) edebug-readtable *readtable* reader:read-constituent edebug-read-constituent read] 2 "\
Read a sexp from STREAM.
STREAM is limited to the current buffer.
Create a parallel offset structure as described in doc for edebug-offsets.

This version, from edebug-cl-read, uses cl-read."])