/[cl-xml]/trunk/load+clhttp+instanceNames.lisp
ViewVC logotype

Contents of /trunk/load+clhttp+instanceNames.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4 - (show annotations)
Mon Feb 13 17:05:21 2006 UTC (8 years, 2 months ago) by banderson
File size: 818 byte(s)
commit of release 0.949, and all patches, through 20040211
1 ;;; -*- Mode: lisp; Syntax: ansi-common-lisp; Base: 10; Package: cl-user; -*-
2
3 (in-package :CL-USER)
4
5 ;;; load configuration with CL-HTTP and with name instances:
6
7 #-CL-HTTP
8 (cerror "continue load."
9 "this is intended to test a configuration with CL-HTTP, yet CL-HTTP is not present.")
10
11 (load (merge-pathnames (make-pathname :name "define-system" :directory '(:relative "library"))
12 *load-pathname*))
13
14 (register-system-definition :xparser (merge-pathnames (make-pathname :name "sysdcl") *load-pathname*))
15
16 (setf *festures* (remove :xml-symbols *features*))
17 (pushnew :nameset-tokenizer *features*)
18 (execute-system-operations :xparser '(:compile :load))
19
20 (format *trace-output* "~%cl xml loaded:~%~s" *features*)
21
22 ;(execute-system-operations :xtests '( :load))
23
24 :EOF

  ViewVC Help
Powered by ViewVC 1.1.5