~ubuntu-branches/ubuntu/karmic/maxima/karmic

« back to all changes in this revision

Viewing changes to src/nregex.lisp

• browse files at revision 1.1.2
• compare with another revision
• download diff
• download tarball
• view history from revision 1.1.2

Show diffs side-by-side

added

removed

src/nregex.lisp

23

23

;;;

24

24

;;; First we create a copy of macros to help debug the beast

25

25

 

26

 

(eval-when (:compile-toplevel :load-toplevel :execute)

 

26

(eval-when #-gcl(:compile-toplevel :load-toplevel :execute) 

 

27

           #+gcl(load compile eval)

27

28

(defpackage "NREGEX"

28

29

  (:use "COMMON-LISP")

29

30

  (:export

428

429

              `(lambda (string &key (start 0) (end (length string)))

429

430

                 (declare (string string)

430

431

                          (fixnum start end)

 

432

                          (ignorable start)

431

433

                          (optimize (speed 0) (compilation-speed 3)))

432

434

                 (setf *regex-groupings* ,group)

433

435

                 (block final-return

440

442

            `(lambda (string &key (start 0) (end (length string)))

441

443

               (declare (string string)

442

444

                        (fixnum start end)

 

445

                        (ignorable start)

443

446

                        (optimize (speed 0) (compilation-speed 3)))

444

447

               (setf *regex-groupings* ,group)

445

448

               (block final-return

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1