This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts MenuQuote
Return-value Description
0 Daylight saving time is not used in the current time zone, because there are no transition dates or automatic adjustment for daylight saving time is disabled.
1 The system is operating in the range covered by the StandardDate member of the TIME_ZONE_INFORMATION structure.
2 The system is operating in the range covered by the DaylightDate member of the TIME_ZONE_INFORMATION structure.
Quote
> (now 0 -2)
540
Quote
> (now 0 -2)
600
Quote
> (now 0 -2)
540
syntax all random functions calledQuotesubsequenlylike
↓
syntax all random functions calledsubsequentlylike
to itself,Quoteelreadyexisting contexts like MAIN do not require quoting.</p>
↓
to itself,alreadyexisting contexts like MAIN do not require quoting.</p>
<tt>ACTX</tt>,Quoteotthe whole funtion must be preceded by a context
↓
<tt>ACTX</tt>,orthe whole funtion must be preceded by a context
<p>10.1.0 size of share objects can exceed the shared memory pagesizeQuote
↓
<p>Since v.10.1.0 size of share objects can exceed the shared memory pagesize
operating system. On MS Windows systems the environmentQuotevatiable<tt>TEMP</tt>
↓
operating system. On MS Windows systems the environmentvariable<tt>TEMP</tt>
<h4>syntax: (traceQuotetrue)
↓
<h4>syntax: (traceint-device)
syntax: (traceQuoteint-device)
↓
syntax: (tracetrue)
<p>In the second syntax debugger mode is switched on whenQuotewhenthe
↓
<p>In the second syntax debugger mode is switched on when the
Setting the option bit to <tt>0x8000</tt> inQuote>int-optionwill force
↓
Setting the option bit to <tt>0x8000</tt> inregex-optionwill force
<h4>syntax: (regex-comp str-pattern [Quote>int-option])</h4>
↓
<h4>syntax: (regex-comp str-pattern [regex-option])</h4>
(setq dag '((a c) (b c) (c d) (c g) (d e) (d f)))
(setq dag2 '((a b) (b c) (b d) (b e) (g d) (c e) (d e) (e f)))
(define (search-pre lst)
(letex (_x (args 0))
(if (replace nil (map (fn (x) (match '(? _x) x true)) lst)) $it "start")))
(define (search-next lst)
(letex (_x (args 0))
(if (replace nil (map (fn (x) (match '(_x ?) x true)) lst)) $it "end")))
(define (search-all lst)
(letex (_x (args 0))
(let (res)
(dolist (x lst)
(if (match '(? _x) x true) (push $it res -1))
(if (match '(_x ?) x true) (push $it res -1)))
(if res (replace nil res)))))
> (search-all dag 'd)Quote
((c d) (d e) (d f))
> (search-pre dag 'a)
"start"
> (search-next dag 'g)
"end"
> (search-pre dag 'c)
((a c) (b c))
> (search-next dag 'c)
((c d) (c g))