1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
;;;; Objective-CL, an Objective-C bridge for Common Lisp.
;;;; Copyright (C) 2007 Matthias Andreas Benkard.
;;;;
;;;; This program is free software: you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public License
;;;; as published by the Free Software Foundation, either version 3 of
;;;; the License, or (at your option) any later version.
;;;;
;;;; This program is distributed in the hope that it will be useful, but
;;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;;; Lesser General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU Lesser General Public
;;;; License along with this program. If not, see
;;;; <http://www.gnu.org/licenses/>.
(in-package #:mulk.objective-cl)
(defvar *runtime-initialisation-level* 0)
(defvar *object-locks* (make-hash-table :test 'eql))
(defvar *boolean-return-exceptions* (make-hash-table :test #'equal))
(defvar *skip-retaining* nil)
(defvar *skip-value-wrapper-unwrapping* nil)
(defvar *in-make-pointer-wrapper-p* nil
"A debugging tool that helps identify direct MAKE-INSTANCE calls that
ought not be there.")
(defvar *trace-method-calls* nil
"Whether to print trace messages of all Objective-C method calls.
## Value Type:
a **generalized boolean**.
## Initial Value:
__nil__.
## Description:
Sometimes it is useful to find out exactly which message calls are done
in a piece of code that is executed. If __*trace-method-calls*__ is
**true**, Objective-CL tries to print trace messages to
__*terminal-io*__ that can be useful for understanding the behaviour
both of application code and the internals of Objective-CL itself.
If __*trace-method-calls*__ is __nil__ (which is the default), no trace
messages are printed.
Note that there is currently no way of determining the receivers of
messages. As this limitation severely limits the usefulness of the
trace messages, it is expected to be lifted in a future version of
Objective-CL.
## Examples:
\(With __install-reader-syntax__ enabled.)
(defvar \\*tmp\\*)
(setq \\*trace-method-calls\\* t)
(setq \\*tmp\\* [NSString new])
; Invoking [new].
(setq \\*tmp\\* [NSString string])
; Invoking [string].
; Invoking [retain].
(setq \\*tmp\\* nil)
(gc :full t)
; Invoking [release].
; Invoking [release].
(setq *trace-method-calls* nil)
\(Note that objects created by a call to `new' are not retained, because
it is the user's (that is, the Objective-CL framework's) responsibility
to release them, while convenience constructors such as `string' return
objects that have already had `autorelease' called on them and must thus
be retained not to be garbage-collected prematurely.)
## Affected By:
__*terminal-io*__
## See also:
__invoke__, __invoke-by-name__")
|
