2
<head><title>PKG-WITNESS.html -- ACL2 Version 3.0.1</title></head>
2
<head><title>PKG-WITNESS.html -- ACL2 Version 3.1</title></head>
3
3
<body text=#000000 bgcolor="#FFFFFF">
4
4
<h2>PKG-WITNESS</h2>return a specific symbol in the indicated package
5
5
<pre>Major Section: <a href="PROGRAMMING.html">PROGRAMMING</a>
8
8
For any string <code>pkg</code> that names a package currently known to ACL2,
9
<code>(pkg-witness pkg)</code> evaluates to a symbol in that package whose
10
<code><a href="SYMBOL-NAME.html">symbol-name</a></code> is the value of constant <code>*pkg-witness-name*</code>.
9
<code>(pkg-witness pkg)</code> is a symbol in that package whose <code><a href="SYMBOL-NAME.html">symbol-name</a></code> is
10
the value of constant <code>*pkg-witness-name*</code>. Logically, this is the case
11
even if the package is not currently known to ACL2. However, if
12
<code>pkg-witness</code> is called on a string that is not the name of a package known
13
to ACL2, a hard Lisp error will result.
12
<code>(Pkg-witness pkg)</code> has a guard of <code>(stringp pkg)</code>. However, if
13
<code>pkg-witness</code> is called on an argument that is not the name of a package
14
known to ACL2, a hard Lisp error will result.
15
<code>(Pkg-witness pkg)</code> has a guard of
16
<code>(and (stringp pkg) (not (equal pkg "")))</code>. If <code>pkg</code> is not a string,
17
then <code>(pkg-witness pkg)</code> is equal to <code>(pkg-witness "ACL2")</code>
15
18
<br><br><br><a href="acl2-doc.html"><img src="llogo.gif"></a> <a href="acl2-doc-index.html"><img src="index.gif"></a>