(in-package "WIN32") (defparameter *txtedit-lisp-kw* "* find-method pprint-indent ** find-package pprint-linear *** find-restart pprint-logical-block + find-symbol pprint-newline ++ finish-output pprint-pop +++ first pprint-tab - fixnum pprint-tabular / flet prin1 // float prin1-to-string /// float-digits princ /= float-precision princ-to-string 1+ float-radix print 1- float-sign print-not-readable < floating-point-inexact print-not-readable-object <= floating-point-invalid-operation print-object = floating-point-overflow print-unreadable-object > floating-point-underflow probe-file >= floatp proclaim abort floor prog abs fmakunbound prog* access force-output prog1 acons format prog2 acos formatter progn acosh fourth program-error add-method fresh-line progv adjoin fround provide adjust-array ftruncate psetf adjustable-array-p ftype psetq allocate-instance funcall push alpha-char-p function pushnew alphanumericp function-keywords putprop and function-lambda-expression quote append functionp random apply gbitp random-state applyhook gcd random-state-p apropos generic-function rassoc apropos-list gensym rassoc-if aref gentemp rassoc-if-not arithmetic-error get ratio arithmetic-error-operands get-decoded-time rational arithmetic-error-operation get-dispatch-macro-character rationalize array get-internal-real-time rationalp array-dimension get-internal-run-time read array-dimension-limit get-macro-character read-byte array-dimensions get-output-stream-string read-char array-displacement get-properties read-char-no-hang array-element-type get-setf-expansion read-delimited-list array-has-fill-pointer-p get-setf-method read-eval-print array-in-bounds-p get-universal-time read-from-string array-rank getf read-line array-rank-limit gethash read-preserving-whitespace array-row-major-index go read-sequence array-total-size graphic-char-p reader-error array-total-size-limit handler-bind readtable arrayp handler-case readtable-case ash hash-table readtablep asin hash-table-count real asinh hash-table-p realp assert hash-table-rehash-size realpart assoc hash-table-rehash-threshold reduce assoc-if hash-table-size reinitialize-instance assoc-if-not hash-table-test rem atan host-namestring remf atanh identity remhash atom if remove base-char if-exists remove-duplicates base-string ignorable remove-if bignum ignore remove-if-not bit ignore-errors remove-method bit-and imagpart remprop bit-andc1 import rename-file bit-andc2 in-package rename-package bit-eqv in-package replace bit-ior incf require bit-nand initialize-instance rest bit-nor inline restart bit-not input-stream-p restart-bind bit-orc1 inspect restart-case bit-orc2 int-char restart-name bit-vector integer return bit-vector-p integer-decode-float return-from bit-xor integer-length revappend block integerp reverse boole interactive-stream-p room boole-1 intern rotatef boole-2 internal-time-units-per-second round boole-and intersection row-major-aref boole-andc1 invalid-method-error rplaca boole-andc2 invoke-debugger rplacd boole-c1 invoke-restart safety boole-c2 invoke-restart-interactively satisfies boole-clr isqrt sbit boole-eqv keyword scale-float boole-ior keywordp schar boole-nand labels search boole-nor lambda second boole-orc1 lambda-list-keywords sequence boole-orc2 lambda-parameters-limit serious-condition boole-set last set boole-xor lcm set-char-bit boolean ldb set-difference both-case-p ldb-test set-dispatch-macro-character boundp ldiff set-exclusive-or break least-negative-double-float set-macro-character broadcast-stream least-negative-long-float set-pprint-dispatch broadcast-stream-streams least-negative-normalized-double-float set-syntax-from-char built-in-class least-negative-normalized-long-float setf butlast least-negative-normalized-short-float setq byte least-negative-normalized-single-float seventh byte-position least-negative-short-float shadow byte-size least-negative-single-float shadowing-import call-arguments-limit least-positive-double-float shared-initialize call-method least-positive-long-float shiftf call-next-method least-positive-normalized-double-float short-float capitalize least-positive-normalized-long-float short-float-epsilon car least-positive-normalized-short-float short-float-negative-epsilon case least-positive-normalized-single-float short-site-name catch least-positive-short-float signal ccase least-positive-single-float signed-byte cdr length signum ceiling let simle-condition cell-error let* simple-array cell-error-name lisp simple-base-string cerror lisp-implementation-type simple-bit-vector change-class lisp-implementation-version simple-bit-vector-p char list simple-condition-format-arguments char-bit list* simple-condition-format-control char-bits list-all-packages simple-error char-bits-limit list-length simple-string char-code listen simple-string-p char-code-limit listp simple-type-error char-control-bit load simple-vector char-downcase load-logical-pathname-translations simple-vector-p char-equal load-time-value simple-warning char-font locally sin char-font-limit log single-flaot-epsilon char-greaterp logand single-float char-hyper-bit logandc1 single-float-epsilon char-int logandc2 single-float-negative-epsilon char-lessp logbitp sinh char-meta-bit logcount sixth char-name logeqv sleep char-not-equal logical-pathname slot-boundp char-not-greaterp logical-pathname-translations slot-exists-p char-not-lessp logior slot-makunbound char-super-bit lognand slot-missing char-upcase lognor slot-unbound char/= lognot slot-value char< logorc1 software-type char<= logorc2 software-version char= logtest some char> logxor sort char>= long-float space character long-float-epsilon special characterp long-float-negative-epsilon special-form-p check-type long-site-name special-operator-p cis loop speed class loop-finish sqrt class-name lower-case-p stable-sort class-of machine-instance standard clear-input machine-type standard-char clear-output machine-version standard-char-p close macro-function standard-class clrhash macroexpand standard-generic-function code-char macroexpand-1 standard-method coerce macroexpand-l standard-object commonp macrolet step compilation-speed make-array storage-condition compile make-array store-value compile-file make-broadcast-stream stream compile-file-pathname make-char stream-element-type compiled-function make-concatenated-stream stream-error compiled-function-p make-condition stream-error-stream compiler-let make-dispatch-macro-character stream-external-format compiler-macro make-echo-stream streamp compiler-macro-function make-hash-table streamup complement make-instance string complex make-instances-obsolete string-capitalize complexp make-list string-char compute-applicable-methods make-load-form string-char-p compute-restarts make-load-form-saving-slots string-downcase concatenate make-method string-equal concatenated-stream make-package string-greaterp concatenated-stream-streams make-pathname string-left-trim cond make-random-state string-lessp condition make-sequence string-not-equal conjugate make-string string-not-greaterp cons make-string-input-stream string-not-lessp consp make-string-output-stream string-right-strim constantly make-symbol string-right-trim constantp make-synonym-stream string-stream continue make-two-way-stream string-trim control-error makunbound string-upcase copy-alist map string/= copy-list map-into string< copy-pprint-dispatch mapc string<= copy-readtable mapcan string= copy-seq mapcar string> copy-structure mapcon string>= copy-symbol maphash stringp copy-tree mapl structure cos maplist structure-class cosh mask-field structure-object count max style-warning count-if member sublim count-if-not member-if sublis ctypecase member-if-not subseq debug merge subsetp decf merge-pathname subst declaim merge-pathnames subst-if declaration method subst-if-not declare method-combination substitute decode-float method-combination-error substitute-if decode-universal-time method-qualifiers substitute-if-not defclass min subtypep defconstant minusp svref defgeneric mismatch sxhash define-compiler-macro mod symbol define-condition most-negative-double-float symbol-function define-method-combination most-negative-fixnum symbol-macrolet define-modify-macro most-negative-long-float symbol-name define-setf-expander most-negative-short-float symbol-package define-setf-method most-negative-single-float symbol-plist define-symbol-macro most-positive-double-float symbol-value defmacro most-positive-fixnum symbolp defmethod most-positive-long-float synonym-stream defpackage most-positive-short-float synonym-stream-symbol defparameter most-positive-single-float sys defsetf muffle-warning system defstruct multiple-value-bind t deftype multiple-value-call tagbody defun multiple-value-list tailp defvar multiple-value-prog1 tan delete multiple-value-seteq tanh delete-duplicates multiple-value-setq tenth delete-file multiple-values-limit terpri delete-if name-char the delete-if-not namestring third delete-package nbutlast throw denominator nconc time deposit-field next-method-p trace describe nil translate-logical-pathname describe-object nintersection translate-pathname destructuring-bind ninth tree-equal digit-char no-applicable-method truename digit-char-p no-next-method truncase directory not truncate directory-namestring notany two-way-stream disassemble notevery two-way-stream-input-stream division-by-zero notinline two-way-stream-output-stream do nreconc type do* nreverse type-error do-all-symbols nset-difference type-error-datum do-exeternal-symbols nset-exclusive-or type-error-expected-type do-external-symbols nstring type-of do-symbols nstring-capitalize typecase documentation nstring-downcase typep dolist nstring-upcase unbound-slot dotimes nsublis unbound-slot-instance double-float nsubst unbound-variable double-float-epsilon nsubst-if undefined-function double-float-negative-epsilon nsubst-if-not unexport dpb nsubstitute unintern dribble nsubstitute-if union dynamic-extent nsubstitute-if-not unless ecase nth unread echo-stream nth-value unread-char echo-stream-input-stream nthcdr unsigned-byte echo-stream-output-stream null untrace ed number unuse-package eighth numberp unwind-protect elt numerator update-instance-for-different-class encode-universal-time nunion update-instance-for-redefined-class end-of-file oddp upgraded-array-element-type endp open upgraded-complex-part-type enough-namestring open-stream-p upper-case-p ensure-directories-exist optimize use-package ensure-generic-function or use-value eq otherwise user eql output-stream-p user-homedir-pathname equal package values equalp package-error values-list error package-error-package vector etypecase package-name vector-pop eval package-nicknames vector-push eval-when package-shadowing-symbols vector-push-extend evalhook package-use-list vectorp evenp package-used-by-list warn every packagep warning exp pairlis when export parse-error wild-pathname-p expt parse-integer with-accessors extended-char parse-namestring with-compilation-unit fboundp pathname with-condition-restarts fceiling pathname-device with-hash-table-iterator fdefinition pathname-directory with-input-from-string ffloor pathname-host with-open-file fifth pathname-match-p with-open-stream file-author pathname-name with-output-to-string file-error pathname-type with-package-iterator file-error-pathname pathname-version with-simple-restart file-length pathnamep with-slots file-namestring peek-char with-standard-io-syntax file-position phase write file-stream pi write-byte file-string-length plusp write-char file-write-date pop write-line fill position write-sequence fill-pointer position-if write-string find position-if-not write-to-string find-all-symbols pprint y-or-n-p find-class pprint-dispatch yes-or-no-p find-if pprint-exit-if-list-exhausted zerop find-if-not pprint-fill caar cadr cdar cddr caaar caadr cadar caddr cdaar cdadr cddar cdddr caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr *applyhook* *load-pathname* *print-pprint-dispatch* *break-on-signals* *load-print* *print-pprint-dispatch* *break-on-signals* *load-truename* *print-pretty* *break-on-warnings* *load-verbose* *print-radix* *compile-file-pathname* *macroexpand-hook* *print-readably* *compile-file-pathname* *modules* *print-right-margin* *compile-file-truename* *package* *print-right-margin* *compile-file-truename* *print-array* *query-io* *compile-print* *print-base* *random-state* *compile-verbose* *print-case* *read-base* *compile-verbose* *print-circle* *read-default-float-format* *debug-io* *print-escape* *read-eval* *debugger-hook* *print-gensym* *read-suppress* *default-pathname-defaults* *print-length* *readtable* *error-output* *print-level* *standard-input* *evalhook* *print-lines* *standard-output* *features* *print-miser-width* *terminal-io* *gensym-counter* *print-miser-width* *trace-output*") (defparameter *txtedit-lisp-kw2* ":abort :from-end :overwrite :adjustable :gensym :predicate :append :host :preserve-whitespace :array :if-does-not-exist :pretty :base :if-exists :print :case :include :print-function :circle :index :probe :conc-name :inherited :radix :constructor :initial-contents :read-only :copier :initial-element :rehash-size :count :initial-offset :rehash-threshold :create :initial-value :rename :default :input :rename-and-delete :defaults :internal :size :device :io :start :direction :junk-allowed :start1 :directory :key :start2 :displaced-index-offset :length :stream :displaced-to :level :supersede :element-type :name :test :end :named :test-not :end1 :new-version :type :end2 :nicknames :use :error :output :verbose :escape :output-file :version :external :fill-pointer") (defparameter *txtedit-decl-forms* '(defmacro defsetf deftype defun defmethod defgeneric lambda do do* do-all-symbols do-external-symbols do-symbols dotimes let let* flet macrolet labels multiple-value-bind locally))