chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5d055f6
)
Ignoring internal symbols when scanning libraries for type initializers
author
espen
<espen>
Tue, 2 Jan 2007 18:39:42 +0000
(18:39 +0000)
committer
espen
<espen>
Tue, 2 Jan 2007 18:39:42 +0000
(18:39 +0000)
glib/gtype.lisp
patch
|
blob
|
blame
|
history
diff --git
a/glib/gtype.lisp
b/glib/gtype.lisp
index d6b1535ddf3a47e64c133cc0cf45e6e443912e14..4b411e461061342eba8ef76f1e736853f107e93f 100644
(file)
--- a/
glib/gtype.lisp
+++ b/
glib/gtype.lisp
@@
-20,7
+20,7
@@
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtype.lisp,v 1.5
8 2006-08-31 20:40:56
espen Exp $
+;; $Id: gtype.lisp,v 1.5
9 2007-01-02 18:39:42
espen Exp $
(in-package "GLIB")
(in-package "GLIB")
@@
-227,6
+227,7
@@
(defun %find-types-in-library (pathname prefixes ignore)
while line
when (and
symbol (> (length symbol) 9)
while line
when (and
symbol (> (length symbol) 9)
+ (not (char= (char symbol 0) #\_))
(or
(not prefixes)
(some #'(lambda (prefix)
(or
(not prefixes)
(some #'(lambda (prefix)